#!/opt/ras/perl/perl5

use Storable;
use Data::Dumper;

if (-r $ARGV[0]) {
  $o  = Storable::retrieve($ARGV[0]);
  print Dumper($o);
  
} else {
  print "cannot read file :$ARGV[0]! \n";
}




