print $out Dumper(retrieve $infile);