He probably wants to know how to pass one sub as an argument to another:

use strict;
use warnings;

bongo(\&bingo);

sub bingo {
    print "bingo";
}

sub bongo {
    my $p = $_[0];
    $p->();
}
[download]