my $mres;
my $textin;
my $ptr;
                                                                                                                                         
sub hello {
        $textin = shift;
        $$ptr = boink::hello_new( $textin );
                                                                                                                                         
        bless $ptr;
        $mres = $$ptr;
                                                                                                                                         
        print $mres;
                                                                                                                                         
        boink::hello_free( $ptr );
                                                                                                                                         
        return $mres;
}