<?xml version="1.0" encoding="windows-1252"?>
<node id="402726" title="tcf03" created="2004-10-26 13:43:35" updated="0000-00-00 00:00:00">
<type id="15">
user</type>
<author id="402726">
tcf03</author>
<data>
<field name="doctext">
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 [href://http://abe.pm.org|Perl mongers group].

&lt;br/&gt;&lt;br/&gt;
&lt;b&gt;duress.pl&lt;/b&gt; - for when you absolutely have to&lt;br/&gt;
&lt;code&gt;
#!/usr/bin/perl

use strict;
use warnings;

use constant DURESS =&gt; 1;

eval {

# This code has been written under duress

print "HELP!\n";

} if DURESS;

END { print $@ if $@ }
&lt;/code&gt;
&lt;br/&gt;&lt;br/&gt;
</field>
<field name="lasttime">
2010-03-18 14:33:08</field>
<field name="experience">
2564</field>
<field name="user_scratchpad">
417099</field>
<field name="imgsrc">
426204</field>
<field name="timeformat">
</field>
<field name="numwriteups">
269</field>
<field name="location">
Pennsylvania</field>
<field name="timezone">
EST</field>
<field name="codewrapoff">
</field>
<field name="codewraplength">
</field>
<field name="codeautowrap">
</field>
<field name="codeprefix">
</field>
<field name="codebig">
</field>
</data>
</node>
