Help for this page
# p_1.pl ... print "in $0: exiting \n"; exit;
>perl p_1.pl in p_2.pl: HI THERE in p_2.pl: BYE NOW in p_2.pl: exiting p_1.pl exiting