Select Code to Download

#!/usr/local/bin/perl -w
#
...
use vars qw( %hash );
use strict;
use Persistence 'test.dat';

my ($k, $v, $n);

 (($k, $v) = each %hash) {
    $n++;
    print "$n: $k => $v\n";
...
        );

END { persistent '%hash'; }