use Time::gmtime;

my $tm = gmtime();

print $tm->sec;
print $tm->min;
# etc...