my $result=eval{$sub);
print($@ ?  "Exception: $@\n" : $result);