SV *
GetAsPointer( format )
    int format
CODE:
    RETVAL= &PV_sv_undef;
    if( OpenClipboard(NULL) ) {
        char *data= (char *)GetClipboardData((UINT)format);
        RETVAL= newSVpvn( data, (char *)&data, sizeof(data) );
        CloseClipboard();
    }
OUTPUT:
    RETVAL