open(FH, ">file.txt") || die "$!\n";