trunk/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	dpavlin	16	#!/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