#!/usr/bin/perl
use CGI;
$c = new CGI;
print $c->header(-location => 'http://hh2hh.blog.fc2.com/');