#!/usr/bin/perl

my @tm=localtime(time);
$year=@tm[5]+1900;
$mon=@tm[4]+1;
$dom=@tm[3];
if ($dom<10) { $dom="0$dom"; }

$dow=@tm[6];
$dstamp=sprintf("%04d%02d%02d",$year,$mon,$dom);        #  CHANGED
$hour=@tm[2];
$min=@tm[1];
$sec=@tm[0];
if ($hour<10) { $hour="0$hour"; }
if ($min<10)  { $min="0$min"; }
if ($sec<10)  { $sec="0$sec"; }
$dstime=$tm[8]; # is it currently daylight savings time.
$tstamp=sprintf("%02d%02d%02d",$hour,$min,$sec);        #  CHANGED

print "year is $year\n";
print "mon is $mon\n";
print "dom is $dom\n";
print "hour is $hour\n";
print "min is $min\n";
print "sec is $sec\n";

print "tstamp is $tstamp\n";

print "dstamp is $dstamp\n";