eval {
  print STDERR "goodbye";
  exit 255;
  print "This line will not be executed.\n";
};
if ($@){
    print STDERR "OUCH: $@";
}

goodbye