Also, don't use a BAREWORD filehandle, add $ to make it a variable and declare it with "my":

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