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