#!/usr/bin/perl -w
use POSIX qw(strftime);
my $myfile = strftime("%Y%m%d",localtime(time));	
$myfile .=".summary";
print $myfile;
print "\n";