Select Code to Download

file1
2013,06,21      2013,06,24
...
2013,06,10      2013,06,26
2013,06,23      2013,06,29
2013,06,06      2013,06,10

#!/usr/bin/perl
# 
...

print $cnt, "\n";
exit;