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);