#!/usr/bin/perl -w
use strict;
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);

printf ("%04d%02d%02d",$year+1900,$mon+1,$mday);
print "\n\n";
# result is 20010807
# good; exactly what was expected

my $ymd = sprintf("%04d%02d%02d",$year+1900,$mon+1,$mday);
print "$ymd";
print "\n\n";
# result is 20010807

my $outfile = "$ymd.summary";
print "$outfile";
print "\n\n";
# result is 20010807.summary