## write out saved data
open ($fh, '>', $outfile);
print $fh $saved_lines;
close ($fh);