open my $fh,'<',$body_sref
            or die "Couldn't open '\$body_ref' for reading. $!";
        return $fh;

##</code><code>##

        open my $fh,'<',\(my $buffer=$$body_sref)
            or die "Couldn't open in-memory file for io. $!";
        return $fh;