#!/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";