Help for this page

Select Code to Download

Select or download this

use DateTime qw( );

...
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";