open(PB_BODY_LIMITED, "> $file_name") or die "Can't $!\n"; print PB_BODY_LIMITED "
-- Perbill Search Results --
Company $data[0]
Company ID(302) $company_name_id
Docs $data[1]
Bytes $data[2]
From $from_month$from_day$from_year
To $to_month$to_day$to_year
";