foo.pl
------
#! /usr/bin/perl
sub func1() {
}

sub func2() {
}

1;

##</code><code>##

my $ref_to_sub = \&func1;