Select Code to Download

#!/usr/bin/perl

...
print "but I don't want to see this\n";

exit;  # don't want to exit either

#!/usr/bin/perl
use warnings;
...

warn "trying mysub";
mysub();

perl do.pl
trying mysub at do.pl line 13.
I want to see this
Compilation finished at Wed Aug  4 10:08:26