Select Code to Download

#!/usr/bin/perl -w
use strict;
...
print "\n\n";
# result is 20010807.summary

#!/usr/bin/perl -w
use strict;
...
my $ymd = sprintf("%04d%02d%02d",$year+1900,$mon+1,$mday);
my $outfile = "$ymd.summary";
print $outfile, "\n";