#Save
use Data::Dumper;
$Data::Dumper::Purity = 1;
open FILE, ">$outfile" or die "Can't open '$outfile':$!";
print FILE Data::Dumper->Dump([$main], ['*main']);
close FILE;
#restore
open FILE, $infile;
undef $/;
eval <FILE>;
close FILE;