use strict;
use Time::localtime;

my ($day, $month, $year) = (localtime)[3,4,5];
print "$month/$day/$year\n";
my $s = "$month/$day/$year";
print "s: $s\n";

##</code><code>##

Use of uninitialized value at test.pl line 5.
Use of uninitialized value at test.pl line 5.
Use of uninitialized value at test.pl line 5.
//