Perl modulok

#!/usr/bin/env perl
 
package Egy;
 
sub nevjegy {
	print "-----------\n";
	print "Ez valaki\n";
 
}
 
1;

#!/usr/bin/env perl
 
use Egy;
 
Egy::nevjegy();

#!/usr/bin/perl
 
use Fugg;
use strict;
 
kiirNev();
kiirCim();

package Fugg;
 
use strict;
use Exporter;
use vars qw($VERSION @ISA @EXPORT);
 
$VERSION 	= '1.00';
@ISA		= qw(Exporter);
@EXPORT		= qw(kiirNev kiirCim);
 
sub kiirNev
{
	print "Nagy József\n";
}
 
sub kiirCim
{
	print "Miskolc\n";
}
 
1;