open my $FH, "<", $input or die "Can't open $input: $!";