zimbardo/bin/dump-storable.pl

#!/usr/bin/perl -w

use strict;

use Storable;
use Data::Dump qw/dump/;

foreach my $path ( @ARGV ) {
        my $d = retrieve $path or warn "Can't read $path: $!";
        print dump( $d ) if defined $d;
}

1	#!/usr/bin/perl -w
2
3	use strict;
4
5	use Storable;
6	use Data::Dump qw/dump/;
7
8	foreach my $path ( @ARGV ) {
9	my $d = retrieve $path or warn "Can't read $path: $!";
10	print dump( $d ) if defined $d;
11	}
12