#!/usr/local/bin/perl -w
#
# name: persistest
#
# does stuff
# works fine

use vars qw( %hash );
use strict;
use Persistence 'test.dat';

##</code><code>##

my ($k, $v, $n);
##</code><code>##

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

%hash = ( blue => 'berries',
        red => 'roses',
        black => 'coffee',
        yellow => 'bananas',
        );

END { persistent '%hash'; }