Help for this page
#!/usr/bin/perl ... print "dstamp is $dstamp\n";
year is 2014 mon is 4 ... sec is 06 tstamp is 161806 dstamp is 20140411
year is 2014 mon is 4 ... sec is 08 tstamp is 1620 8 dstamp is 2014 411