#!/usr/bin/perl -wT
use strict;

my $today     = get_date();
my $yesterday = get_date(-1);
my $tomorrow  = get_date(1);

print "Yesterday = $yesterday\n";
print "Today     = $today\n";
print "Tomorrow  = $tomorrow\n";

sub get_date {
  my $offset = shift || 0;
  my $ts = time + $offset*60*60*24;
  my ($day,$month,$year) = (localtime($ts))[3,4,5];
  sprintf ("%02s-%02s-%04s",$day,$month+1,$year+1900);
}

=OUTPUT
Yesterday = 14-10-2001
Today     = 15-10-2001
Tomorrow  = 16-10-2001