Perl書くのにどんなエディタ使ってる？

>>93
#!/usr/local/bin/perl
if ($ENV{'HTTP_ACCEPT_ENCODING'}=~/gzip/) { select (STDOUT); $|=1;
print <<END;
Content-Type: text/html; charset=Shift_JIS
Content-encoding: gzip

END
open(STDOUT,"| $gzip -c");
} else {
print "Content-Type: text/html; charset=Shift_JIS\n\n";
}
}
else { print "Content-type: text/html; charset=Shift_JIS\n\n"; }
}
foreach(100000) { print "コード書けないコテハンはこの板には不要です。\n"; }
exit;