#!/usr/bin/perl -w

use strict;

my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);

$year = $year+1900; $mon = $mon+1;
if ( $mon < 10 ) {
  $mon = "0$mon";
}

my $yyyymmdd = "$year$mon$mday";

print "$yyyymmdd\n";