diff --git a/perl/box.pl b/perl/box.pl
index d91c39f..7d9ef88 100755
--- a/perl/box.pl
+++ b/perl/box.pl
@@ -9,14 +9,23 @@ use lib qw(.);
 use Brm::Lasic;
 
 my $lasic = Brm::Lasic->new(dev => '/dev/ttyUSB0');
+print "reset\n";
 $lasic->reset();
+sleep 1;
 
+print "focus -2\n";
 $lasic->focus(-2);
+sleep 1;
+print "focus 2\n";
 $lasic->focus(2);
+sleep 1;
 
+print "laser on\n";
 $lasic->laser_on();
+sleep 1;
 $lasic->move(100, 0);
+$lasic->move(100, 100);
 $lasic->move(0, 100);
-$lasic->move(-100, 0);
-$lasic->move(0, -100);
+$lasic->move(0, 0);
 $lasic->laser_off();
+print "laser off\n";