#
pakket test
strikt gebruik;
gebruik vars qw (@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS $VERSION);
gebruiks Exporteur;
$VERSION = 1.00;
@ISA = qw (Exporteur);
@EXPORT = qw (%hash); # Symbolen aan autoexport
@EXPORT_OK = qw (); # Symbolen door verzoek uit te voeren
%EXPORT_TAGS = (); # Bepaal namen voor reeksen symbolen
onze %hash;
$hash {markering} = waarde;
1; # Wordt dit vereist. Schrap deze lijn niet!
# MANUSCRIPT
#! perl
strikt gebruik;
gebruiks test;
druk „$_ \ n“ voor sleutels %hash;
|