#!/usr/bin/perl

use DBI;
use POSIX  qw(strftime);
require "kanlib.pl";
%formdata=();
kanlib::ReadData(*data);
kanlib::ParseData(*data,*formdata);

$urlpath = "http://www.y28club.com/y28lifestyle/Y28-Ladies/cgi-bin/ladies/index.pl";
print "Location: $urlpath\n\n";
exit;