open(FH, "> $myfile") || die "Can't open $file for write: $!";