#caller
#!/usr/bin/perl
$|++;
print "start\n";

do "test";
#system ("./test");

print "done\n";