my $sub = \&do_this;
print $sub->("Fred");