open(my $FH, "<input.inp") or die ...