This is an archived low-energy page for bots and other anonmyous visitors. Please sign up if you are a human and want to interact.

[Account disabled] User since: Oct 26, 2004 at 13:43 UTC (21 years ago) Last here: Mar 16, 2015 at 08:51 UTC (11 years ago) Experience: 2577 Level: Deacon (12) Writeups: none Location: n/a User's localtime: Sep 25, 2025 at 05:34 UTC Scratchpad: None. 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]