Select Code to Download

    sub new {
        my $ptr= xs_new( ... );
...
        my $self= shift(@_);
        xs_free( $$self );
    }

int
xs_new( ... )
...
    int    self
CODE:
    free( (void *)self );