programming-examples/perl/Subroutine/Pass reference to a subroutine to another subroutine.pl

sub printhello
{
    print "Hello!\n";
}

sub printem
{
    &{@_[0]};
}

printem \&printhello;