Select Code to Download

#!/usr/bin/env perl
use warnings;
...
$month = sprintf '%02d', $month+1;
$day   = sprintf '%02d', $day;
print $year+1900, $month, $day, "\n";

20080311