use POSIX;

my $ymdstring = strftime( "%Y%m%d", localtime );

print "looking for log files named *$ymdstring* ...\n";
my @files = <*$ymdstring*>;

print join "\n", @files, "";