User since: Oct 26, 2004 at 17:43 UTC (20 years ago) Last here: Mar 16, 2015 at 12:51 UTC (10 years ago) Experience: 2576 Level: Deacon (12) Writeups: 269 Location: Pennsylvania User's localtime: Oct 10, 2024 at 11:28 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 $@ }
[download]