Select Code to Download

use Socket qw( inet_aton );
while (<>) {
    my $host = extract_host($_);
    print(unpack('H8', inet_aton($host)), $_);
}

my $last;
my $count;
...
if (defined($last)) {
    print("$last: $count\n");
}