Select Code to Download

#!/usr/bin/perl

...
    print "$0: Done!\n";
    exit;
}

#!/usr/bin/perl

...

close $lock;
unlink $lock_file;

$ perl call.pl

...
call.pl: Subtask still running...
busy.pl: Ending subtask...
call.pl: Done!