Select Code to Download

#!/usr/bin/perl -w

...
{
 print "\$day is [$day]\n";
}

$day is [2001010100:00:00]
$day is [2001020500:00:00]
...
$day is [2001100100:00:00]
$day is [2001110500:00:00]
$day is [2001120300:00:00]