sub foo { return $_[0] + 5; }

print_sub \&foo;