Select Code to Download

#!/usr/bin/perl

...

$s = -s "test.txt";
print "wrote ".length($out)." bytes to test.txt; file size is $s bytes
+\n";

#!/usr/bin/perl

...

warn "read $line_count lines from $opt_i, wrote ".scalar(keys %lines).
    " lines to $opt_o\n";