sub main { my $val = eval { test_sub () }; die "hi" if $@; }