#!/usr/bin/perl

use strict;
use warnings;

eval {
  mod( 2 )
};

if( $@ ) {
  print "TRAPPED!\n";
  print $@, "\n";
}

sub mod { $_[0] = 1 }