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

##</code><code>##

print "printing from called program\n";
print STDERR "printing from called program to stderr\n";
die "dying from called program, stopped";

##</code><code>##

printing from called program
printing from called program to stderr
printing from calling program
dying from calling program, stopped at calling.pl line 3.