Select Code to Download

#!/usr/bin/perl -w

...
    print "@$_\n";
}
print "\n";

 my ($year, $month) = split /-/, shift || $today;
 
...
     }
     print "@$_\n";
 }