#!/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 $@ }