 |
| User since: |
Oct 26, 2004 at 17:43 UTC
(21 years ago) |
| Last here: |
Mar 16, 2015 at 12:51 UTC
(11 years ago) |
| Experience: |
2577
|
| Level: | Deacon (12) |
| Writeups: |
269
|
| Location: | Pennsylvania |
| User's localtime: |
Oct 05, 2025 at 02:18 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 $@ }