use strict;
use warnings;
use DateTime;

my $x = eval{ DateTime->from_epoch(epoch=>'xxxx'); };
print "xx\n";
die;
# moving on to other business:
my $z = 1; #eval { 1 }; # "reset" $@
die; # still displays the $@ of last failed eval which is irrelevant at this point in the code!