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