#!/usr/bin/perl -w
#output as 031810002015 (march 18 10:00 del 2015)
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
my $now = sprintf("%02d%02d%02d%02d%04d", $mon+1, $mday,$hour, $min,$year+1900);
print "$now\n";