Jetchatの裏技で勝ちたいです。

#!/usr/bin/perl
use strict;use Socket;use MIME::Base64;use Encode;use Encode::Guess;
#http://www.avion.co.jp/jetchat/chatpage.php3?00275593
#my @portary=(2100, 2102, 2106, 2107);
#my $host="app2.avion.co.jp";
#my $room=275593;
#my $port=$portary[$room%4];
#http://www3.fumi23.com/chat.php3?room=3019&name=恋バナチャット３&image=007&bg=FF9898
my $host="www3.fumi23.com";my $room=3019;my $port=2100;
my $ipaddr_bin = inet_aton($host);
my $ipaddr_str = inet_ntoa($ipaddr_bin);
socket(SOCKET, PF_INET, SOCK_STREAM, 0) || die "cannot open socket $!";
connect(SOCKET, pack_sockaddr_in($port,$ipaddr_bin)) || die "cannot connect socket $!";
select(SOCKET);$|=1;select(STDOUT);
print SOCKET "# ".$room." 0 LOG=ON\n";print SOCKET "?\n";
while(1){my $res=<SOCKET>;print "chat:".encode("SJIS", decode("UTF-16LE", decode_base64($res))).":\n";}
close(SOCKET);