you got your answer but as a side remark ... this is ugly if you don't need all return values:

my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(t
+ime);

# use a slice
my ($year, $mon, $mday) = (localtime())[5,4,3];
[download]

-- Hofmator