Select Code to Download

 struct somestruct <-----------
 {
...

 ...

************

...

perl_destruct(my_perl);
perl_free(my_perl);

#!perl

...
    $_[0] = $a;
    $_[1] = $b;
}

my $data = shift;

...
{
        $data->pdata[$i]->vsomething->x = $whatever;
}