#caller #!/usr/bin/perl $|++; print "start\n"; do "test"; #system ("./test"); print "done\n"; #### #test #!/usr/bin/perl print "test\n"; exit;