#!/usr/bin/perl
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday) = gmtime(time());
print "sec:" . $sec;
print "\n";
print "min:" . $min;
print "\n";
print "hour:" . $hour . "\n";
print "mday:" . $mday . "\n";
print "mon:" . $mon . "\n";
print "year:" . $year . "\n";
print "wday:" . $wday . "\n";
print "yday:" . $yday . "\n";
print "\n";