Perl编写的三级域名转向程序

$domain=$ENV{‘SERVER_NAME’};
if ($domain eq “blog.muyu.org”) { $url=”http://youzi.cc/muyu/blog/”; }
print “Content-type:text/html\n\n”;
print qq(
〖html〗
〖head〗
〖title〗木鱼在线〖/title〗
〖meta http-equiv=”Content-Type” content=”text/html; charset=gb2312″〗
〖/head〗
〖frameset cols=”0,*” frameborder=”NO” border=”0″ framespacing=”0″〗
〖frame scrolling=”NO” noresize〗
〖frame src=$url〗
〖/frameset〗
〖/html〗);