do 'called.pl':;
print "printing from calling program\n";
die "dying from calling program, stopped";