Select Code to Download

#!/usr/bin/perl 

...
 $count{$date}++;
 print "<font size=1>$c</font> - $count{$date} - $date<br>\n";
}

4 times 02/20/2009
2 times 02/01/2009
2 times 01/31/2009
1 times 01/01/2009