my @files = grep(-f, <*.*>);

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

##</code><code>##

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

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

##</code><code>##

my @files;

opendir(DIR, "/opt/tmp/" or die "Cannot open dir");

@files = grep {-T "/opt/tmp/$_"} readdir DIR;

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

closedir(DIR);