EDULOCO

Densyy o seu erro está sendo na criação da conexão você está usando Photo em vez de Proto :x $conectar = IO::Socket::INET->new(PeerAddr=> $server, PeerPort=> "6667", Photo=> "tcp") or die "ERRO\n";

Outra dica fora a do Fvox é você abrir o prompt de comando apenas, ir até o caminho onde está o script em perl ex : "C:\Arquivos De Programas\" e executar - perl script.pl Como a janela do prompt foi aberta separadamente, assim que o script executar todas as funções, a janela ficara aberta para você ver o resultado. Boa sorte :D