Entweder select verwenden, wie Froschpopo sagt, oder man kann auch fuer Sockets Timeouts setzen, sodass recv nicht ewig blockt.  Wenn das Socket mit IO::Socket erzeugt wurde, hilft da

ansonsten mit setsockopt arbeiten.  Keine Ahnung, ob das unter Windows geht.