Perl time

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";

}