#!/usr/bin/perl -w
use strict;
my ($mday,$mon,$year) = (localtime)[3..5];

my $ymd = sprintf("%04d%02d%02d",$year+1900,$mon+1,$mday);
my $outfile = "$ymd.summary";
print $outfile, "\n";