use strict; use warnings; bongo(\&bingo); sub bingo { print "bingo"; } sub bongo { my $p = $_[0]; $p->(); }