$gior = (localtime)[3]; $mese = (localtime)[4]+1; $anno = (localtime)[5]+1900; $ora = (localtime)[2]; $min = (localtime)[1];da riga comandoperl -e '$anno = (localtime)[5]+1900;print $anno;print "\n"' ciaoBeppe