use DateTime qw( );

my $today     = DateTime->today( time_zone => 'local' );
my $tomorrow  = $today->add     ( days => 1 );
my $yesterday = $today->subtract( days => 1 );

print "Today is:     ", $today    ->strftime('%m/%d/%Y'), "\n";
print "Tomorrow is:  ", $tomorrow ->strftime('%m/%d/%Y'), "\n";
print "Yesterday is: ", $yesterday->strftime('%m/%d/%Y'), "\n";