# SEMINER/ornek.pm dosyası

use Exporter  ();
use vars      qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
$VERSION = 0.1;
@ISA         = qw(Exporter);
@EXPORT      = qw( &sub1 &sub2 &sub3);
%EXPORT_TAGS = ( );
@EXPORT_OK = qw($degisken1);
use vars      @EXPORT_OK;
sub sub1{
.
.
.
}
sub sub2{
.
.
.
}
sub sub3{
.
.
.
}
sub sub4{
.
.
.
}
1;
__END__

Ana program

use SEMINER::ornek;
sub1();

 #!/usr/bin/perl
use CGI;

$q = new CGI;

$KULLANICI = $ENV{"REMOTE_USER"};

print $q->header;
print $q->start_html('Örnek');
print $q->h1('Bu Akedemik Bilişim İçin Hazırlanmış Bir Örnektir.');
print $q->p();
print "$KULLANICI, seminere hoş geldin...";
print $q->end_html;