Help for this page

Select Code to Download


  1. or download this
    print '[[asc', "done\n" ;
  2. or download this
    #!/usr/bin/perl
#create the Storable file
...
100-Years=fe3a558bec50817e0400c0730c2ea147
1024-PrScr #1=8cc0488ec026a103002d800026a30300
1024-PrScr #2=a172041f3df0f07505a10301cd0526a1
  3. or download this
    #!/usr/bin/perl
#read the Storable file
...
my %sigs = %{retrieve('z1.bin')} or die "Unable to retrieve from z1.bi
+n:$!\n" ; 

foreach $name (keys %sigs){print "$name\t$sigs{$name}\n";}