use Data::Dumper;
print Dumper $sub_ref; # prints $VAR1 = sub { "DUMMY" };