# print "\nCalling recv()...";
        my $select = IO::Select->new();
        $select->add(LINK_HNDL);
        if($select->can_read(0))
        {
            recv(LINK_HNDL, $temp, $size - length($data), $flags);
            #print "**$temp**\n";
        }
        else
        {
            #print "No data on socket.\n";
        }