note
kelan
<p>
[cpan://Date::Calc] for date calculations!
<code>
use Date::Calc 'Add_Delta_Days';
sub get_yesterday {
my ( $year, $month, $day ) = split /-/, shift;
return join '-', Add_Delta_Days( $year, $month, $day, -1 );
}
</code>
</p>
444324
444324