#!/usr/local/bin/perl #!D:\Perl\bin\perl print "Content-type: text/html\n\n"; print '<HTML><head><title>恋愛占い・診断・心理テストのハニホー!当たる!無料!</title></head><body>'; print "<P>この診断はリニューアルされました。TOPに戻り、やり直してください。</P>\n"; print '<h1 style="font-size:18px;"><a href="http://hanihoh.com/love2">恋愛占い・診断・心理テストのハニホー!当たる!無料!</a></h1>'; print "</body></HTML>\n";