Select Code to Download

sub check {
  print "Check\n";
...
  print "move_pic\n";
  $_[KERNEL]->yield('check');
}

sub start {
  $_[KERNEL]->delay(get_pic => 10);
...
  print "move_pic\n";
  $_[KERNEL]->delay(move_pic => 30);
}