sub gettimestamp()
{
# my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime();
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = gmtime();
my $sec = sprintf( "%2.2d" , $sec );
my $min = sprintf( "%2.2d" , $min );
my $hour = sprintf( "%2.2d" , $hour );
my $mday = sprintf( "%2.2d" , $mday );
my $mon = sprintf( "%2.2d" , $mon );
$mon = $mon + 1; # to account for the fact that January starts at 0
my $year = $year + 1900;
my $timestamp = "$year-$mon-$mday--$hour-$min-$sec" ;
return $timestamp;
}
print localtime(). "\n"
@timeData = gmtime(time);
foreach my $token ( @timeData )
{
print "$token \n";
}