open(IN,"> $infile") or die "$_\n"; 

print IN $data;