Select Code to Download

#include <stdlib.h>
#include <stdio.h>
...
      fwrite(buf + START_OFFSET, 1, len, stdout);
   }
}

my %h;
$h{$_}++ while(<>);

for(sort { $a->[0] <=> $b->[0] } map { [ Date::Parse::str2date($_) => 
+chomp ] } keys %h) {
    print "$_->[1]: $h{"$_\n"}\n;
}