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