open my $in, '<', shift @ARGV; while (my $line = <$in>){