while (<"/export/home/usps_edi/*pl">) 
{ -f $_ && print "ok\n";}'

##</code><code>##

use EDI::Config;
use POSIX qw(uname);
use File::Copy;
use File::Basename;