>>751

#!/usr/bin/perl
print "Content-type: text/html;charset=Shift_JIS\n\n";
open(IN, "ys4.cgi");
while (<IN>) {
@data = split(/<>/,$_);
print "<a href=\"$data[2]\">$data[2]</A><BR>\n";
}
close(IN);

↑こんなんじゃ駄目ですか？、違ってたらすみません。

ttp://unko-kusai.com