eval{ do '2.pl' };
die "Aaaagh! $@" if $@;