Shell Programming and Scripting

my $minus_one_day = time - 86400;
my $yesterday = localtime $minus_one_day;

print("yesterday: $yesterday \n");

days_ago()
{
  # usage: days_ago n
  # where n = number of days before today
  perl  -e   '
        # take 86400 * # of days from right now in epoch seconds
                 $yestertime = time - (86400 * $ARGV[0]);
                 $month = (localtime $yestertime)[4] + 1;
        # day of the month
                 $day = (localtime $yestertime)[3];
        # year
                 $year = (localtime $yestertime)[5] + 1900;
        # format mm/dd/yyyy
                 printf( "%02d/%02d/%d\n", $month, $day, $year);  '  $1
}

days_ago 1