Language Basics Perl

$s = localtime($^T);
print $s;