Select Code to Download

    cnt = perl_call_method("read", G_SCALAR);

    cnt = perl_call_method("sysread", G_SCALAR);

use strict;
use XML::Parser;
...
    }
);
$parser->parse($sock);