SV* get_date( char* str )
{
    /* some stuff goes here */
    return newSVpv(date,8);
}