#!/usr/bin/perl
# no -w
# no strict

eval {
  ... the rest of the program...
};

die $@ if $@;