open(FH, "> sample.txt") or die("Cannot write to file: $!\n");