Или нету этого модуля или дырку заделали.

А про 40-ую строку незнаю.
Вот она,может тебе какие нить мысли придут =))

$socket = IO::Socket::INET->new(