Help for this page

Select Code to Download


  1. or download this
    ##### MyConst.pm #####
package MyConst;
...

1;
__END__
  2. or download this
    ##### test.pl #####
# Uncomment to see Exporter's magic
...
print Data::Dumper->Dump([$const1, \@array, \%hash], [qw(*const1 *arra
+y *hash)]), "\n";
print 'foo() = ', foo(), "\n";
__END__