use File::Find::Rule qw/ rule find /;
my @files = find( file => maxdepth => 1, ascii => in => '/opt/tmp' );