localtime

[Rick]

below is working code but is there way to shorten this code in more 
perlish way?

my($DAY, $MONTH , $YEAR ) = (localtime)[3,4,5];
my $day   = sprintf("%02d",$DAY);
my $month = sprintf("%02d", ($MONTH + '1'));
my $year  = sprintf("%04d", ($YEAR + '1900'));

my $current_dir = join('', $year, $month, $day);

--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/