sub sub1 {
my $dat_ref = shift;
my $code_ref = shift;
eval {&\code_ref);
}