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;