eval { 
  die 'Ack!';
};
print "ERROR: $@\n";

exit;
__END__