package test;
require Exporter;
use strict;
use warnings;
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
$VERSION = 1.0;
@ISA     = qw(Exporter);
@EXPORT  = qw(mysub);
sub mysub {
	my $lokal = shift;
	print "\$lokal: $lokal\n";
	print "\$global: $global\n";
}
1;