my @files = glob("/opt/tmp/*.*");

foreach my $file (@files)
{
 print "file = $file\n";
}