|
I'm a System Engineer, still trying to figure out what I want to do when I grow up. Im a member of my local Perl mongers group.
duress.pl - for when you absolutely have to
#!/usr/bin/perl use strict; use warnings; use constant DURESS => 1; eval { # This code has been written under duress print "HELP!\n"; } if DURESS; END { print $@ if $@ }