XS(XS_main_get_name_from_artist)
{
    dXSARGS;
    if (items != 1)
        Perl_croak(aTHX_ "Usage: main::get_name_from_artist(artist_sv)");
    PERL_UNUSED_VAR(cv); /* -W */
    {
        SV *    artist_sv = ST(0);
        SV *    RETVAL; 

        RETVAL = get_name_from_artist(artist_sv);
        ST(0) = RETVAL; 
        sv_2mortal(ST(0));
    }
    XSRETURN(1);
}