sub save_struct($$)
{
  my ($file,$ref)=@_;
  use Data::Dumper;
  open(OUT,'>',$file) or return 0;
  print OUT Dumper($ref);
  close(OUT);
  return 1;
}

sub load_struct($)
{
  my ($file)=@_;
  local $/='';
  my $VAR1;
  open(IN,'<',$file) or return undef;
  eval(<IN>);
  close(IN);
  return $VAR1;
}