open(PB_BODY_LIMITED, ">> tmp/FR.DOC") or die "Can't $!\n"; 
                           ^^