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