Select Code to Download

SV* get_date (char* str)
{
...
    memcpy (new_date+4, str, 4);
    return newSVpv(new_date,8);
}