#!/usr/bin/perl use CGI; $cgi = new CGI; if ($cgi->param('method') eq "") { $randnick = "TF".int rand 1024; print "Content-type:text/html\n\n"; print < Thai-Fansubs Web IRC Service
Nickname
สามารถเปลี่ยนชื่อเป็นภาษาไทยได้ภายหลัง
You can change to Thai nick after connect
Channel
คุณสามารถเข้าห้องเพิ่มเติมได้ภายหลัง
You're allow to enter other rooms after connect
IRC Server
EOF exit; } elsif ($cgi->param('method') eq "css") { print "Content-type:text/css\n\n"; print <