Select Code to Download

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

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