open(my $fh, ">", "output.txt")
  or die "Can't open > output.txt: $!";