#!/usr/bin/perl
#read the Storable file
#use strict;
use warnings;
use Storable;

my %sigs = %{retrieve('z1.bin')} or die "Unable to retrieve from z1.bin:$!\n" ; 

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