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