Select Code to Download

read $IN1, my $buffer, -s $IN1;
++$counts{$_} for split( /^/m, $buffer );

#!/usr/bin/perl
use strict;
...
        }
    );
}