http://www.perlmonks.org?node_id=402726
tcf03's user image
User since: Oct 26, 2004 at 17:43 UTC (15 years ago)
Last here: Mar 16, 2015 at 12:51 UTC (5 years ago)
Experience: 2574
Level: Deacon (12)
Writeups: 269
Location:Pennsylvania
User's localtime: Dec 06, 2019 at 20:50 EST
Scratchpad: View
For this user:Search nodes

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