ime.nuってどうなっているの？

>172どどっちがソースきれい？

#!/usr/local/bin/perl

$url = $ENV{'REQUEST_URI'};
$url =~ s|/||;
if($url =~ /http:/ ) {
$url = "$url";
}else{
$url = "http://$url";
}
print "Content-type: text/html\n\n";
print "<html><head><title>jump</title></head>";
print "<a href=$url>$url</a> 別のサイトにジャンプしようとしています。";
print "宜しければ上記のリンクをクリックしてください <hr>\n";
print "広告\n";
print "<hr>広告のお問い合わせはad\@ime.st";
print "<a href=http://ime.st>;Powered by ime</a>021126\n";