my $date1 = `date '+%m/%d/%Y'`;

$ cat time.pl
#!/usr/bin/perl

use strict;
use warnings;

my $time     = time;
my @today    = localtime($time);
my @tomorrow = localtime( $time + 24 * 60 * 60 );

printf "   Today: %02d/%02d/%04d\n", $today[4] + 1, $today[3], $today[5] + 1900;
printf "Tommorow: %02d/%02d/%04d\n", $tomorrow[4] + 1, $tomorrow[3],
  $tomorrow[5] + 1900;
$ perl time.pl
   Today: 12/02/2009
Tommorow: 12/03/2009

1. Try it. In the above example, change the line
   
   Code:

   my $time     = time;