#!/usr/bin/perl -w
use strict;
my @now =localtime();
my $timeStamp = sprintf("%04d%02d%02d%02d%02d%02d",$now[5]+1900,$now[4]+1,$now[3],$now[2],$now[1],$now[0]);
my $systime = timelocal($now[0],$now[1],$now[2],$now[3],$now[4]+1,$now[5]+1900);