Datei MyTest.pm:
--8<--
package MyTest;

use vars qw( $VERSION @ISA @EXPORT  @EXPORT_OK %EXPORT_TAGS );
use Exporter;
push @ISA, qw( Exporter );
@EXPORT = qw( foobar );

sub foobar {
        print "Hello World!\n";
}

1;

--8<--

Datei mytest.pl:
--8<--
#!/usr/bin/perl
use strict;
use warnings;
use MyTest;

foobar();

--8<--