# MODUŁ
pakunek test
używać surowy;
używać vars qw (@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS $VERSION);
używać Eksporter;
$VERSION = 1.00;
@ISA = qw (Eksporter);
@EXPORT = qw (%hash); # Symbol autoexport
@EXPORT_OK = qw (); # Symbol prośba
%EXPORT_TAGS = (); # Definiować imię dla set symbol
nasz %hash;
$hash {etykietka} = wartość;
(1); # To wymagać. Kasować ten linia!
# PISMO
#! perl
używać surowy;
używać test;
drukować "$_ \ n" dla klucz %hash;
|