open my $in, '<', $input or die $!; 
to
    open my $in, '<', $input or die "$! - [$input]";