[perl] functions

sub getyesterdate{
my ($year,$mon,$day) = (localtime)[3,4,5];
my $yesterday = time - 86400;

$yesterday = strftime "%Y-%m-%d",localtime($yesterday);
return $yesterday;
##%y = 2005 %y = 05
}