note
Athanasius
<p>Here is one way:</p>
<code>
#! perl
use strict;
use warnings;
use Date::Calc qw(Days_in_Month Today);
print 'The last day of last month was ', last_day_last_month(), "\n";
sub last_day_last_month
{
my ($year, $month, $day) = Today([time]);
if (--$month == 0)
{
$month = 12;
--$year;
}
return sprintf("%02d/%d/%d", $month,
Days_in_Month($year, $month),
$year);
}
</code>
<p>Hope that helps,</p>
<!-- Node text goes above. Div tags should contain sig only -->
<div class="pmsig"><div class="pmsig-968231">
<p>Athanasius <font color=#008000><°(((><</font> <i>contra mundum</i></p>
</div></div>
1001445
1001445