while (@Readable = $SelHandle->can_read)
{
        $SocketHandle->recv($Status,1);
        print($Status);
}