Hi renpai

This is subroutine written by me which I use to get yesterdays date

1.i

# get yesterdays date
my $date = &plsub_getdate(1);


## *** Get date number                                     *** ##
## parameters - dday (optional)                                ##
## dday       - difference day         - $_[0]                 ##
## frmt       - Date Format            - $_[1] {WIP}           ##

sub getdatenum
{
  use POSIX qw(strftime);

  if ($_[0])
  {
    $date = strftime "%Y%m%d", gmtime(time - (86400 * $_[0]));
  }
  else
  {
    $date = strftime "%Y%m%d", gmtime;
  }

  return $date;
}
[download]

Now I suppose you will work to get 2.i. If still you have any problem mail me joel_divekar@yahoo.com

Jamnet