Select Code to Download

printf BIDWATCH '%s', $part->bodyhandle->as_string;

$s = $part->bodyhandle->as_string;
$s =~ s/%/%%/g;
printf BIDWATCH $s;