open( PUTFILE, ">$outfile" ) or return;