
sub sendraw {
    my ($pstr)=@_;
    $PROTO=getprotobyname('tcp')||0;
    @DXX=();
    $pstr=~s/\n/\r\n/g;
    $pstr=~s/\r\r/\r/g;
#    ... etc. ...