http://www.perlmonks.org?node_id=402726
tcf03's user image
User since: Oct 26, 2004 at 17:43 UTC (19 years ago)
Last here: Mar 16, 2015 at 12:51 UTC (9 years ago)
Experience: 2575
Level:Deacon (12)
Writeups: 269
Location:Pennsylvania
User's localtime: Mar 28, 2024 at 08:41 EST
Scratchpad: View
For this user:Search nodes
Watch for posts by this user

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 $@ }