open my $in, '<', $input or die $!;