Select Code to Download

 print join ' ',$key,$le,fmt_mdy($date),fmt_mdy($rdate),$company,"|$pk
+|\n";