@ready = IO::Select->new($Socket)->can_read(4);
if (@ready) {
    $Socket->recv($Info{Data},16384);
}