open (FOUT, "filename") || die("you cant open");
print FOUT $str;