$Socket = IO::Socket::INET->new(
                                      LocalPort => '25022',
                                      Proto => 'tcp',
                                      Listen => 10,
                                      Timeout => 1,
                                      Type => SOCK_STREAM,
                                      Reuse => 1
                                      ) or die $!;

until($Client = $Socket->accept()) {}


$Client->blocking(0);
# The next statment shouldnt block, but it does !!!
$Input = <$Client>;
$Client->blocking(1);