Code:
my $unix_stmp = time; my ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday) = gmtime($unix_stmp);
$year += 1900;
$mon += 1;
print "$year $sec\n";
http://perldoc.perl.org/functions/gmtime.html is your friend, again.
For your second question try localtime http://perldoc.perl.org/...tions/localtime.html.
