#!/usr/bin/perl -w

use strict;
use Error qw( :try );

my $var = "Hello";


END {
  try {
    print $var, "\n";
  } catch Error with {
    print "Whoa, got an error!\n";
  };
}