#!/usr/bin/perl -wT
eval {
  use strict;
  ...
};
print "Died with $@\n" if ($@);