#!/usr/local/bin/perl -w

# store2dump v. 7 Apr 1996, Dave Schweisguth <dcs@proton.chem.yale.edu>

# Prints a Storable.pm database in text (valid Perl, human-readable) form

use Storable qw(retrieve retrieve_fd);
use Data::Dumper;
$Data::Dumper::Indent = 1;
if (@ARGV) {
    foreach (@ARGV) {
	print Dumper(retrieve($_));
    }
} else {
    print Dumper(retrieve_fd('STDIN'));
}