Select Code to Download

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