Select Code to Download

#!/usr/bin/perl -w
use strict;
...
  print "Empty Hash\n";
}
qux('test');

$ perl crap2.pl 
Hello Nurse!
...
        main::qux('test') called at crap2.pl line 31
 at crap2.pl line 25
        main::qux('test') called at crap2.pl line 31

...
eval { 
...
};
return if $@;
...

...
eval {
...
};
return if $@;
...