use strict;
use warnings;

eval
{
  &GWBush;
};

print "Error: $@" if $@;

sub GWBush
{
  die "I'm a liar";
}