Help for this page
#!/usr/bin/perl -w ... print "@$_\n"; } print "\n";
my ($year, $month) = split /-/, shift || $today; ... } print "@$_\n"; }