use strict;
use Time::localtime;

my $mCurrentTime;
my $mTimeStamp;


$mCurrentTime = localtime;

$mTimeStamp = sprintf( '%04d%02d%02d', 
                       ($mCurrentTime->year)+1900, 
                       ($mCurrentTime->mon)+1, 
                       $mCurrentTime->mday 
                     );