#!/usr/bin/perl -w
use strict;

my ($year,$month,$day) = (gmtime(time))[5,4,3];
$year    +=1900;
$month   +=1;
my $date = sprintf("%4d%02d%02d", $year,$month,$day);

print "date = $date\n"; #date = 20111031