# Call.XS ~line 130
    SAVESPTR(DEFSV) ;/* save $_ */
    /* make $_ use our buffer */
    DEFSV = sv_2mortal(newSVpv("", 0)) ; 

##</code><code>##

use Filter::Util::Call;
BEGIN{ filter_add(sub{
        my $s = filter_read;
        my $t = "$_";
        $s;
}); }
print "hello, world\n";