>>463
それでもInternal Server Errorになります。
コードはサンプルコードの
my $html = HTML::TagParser->new( '<html><form action="hoge.cgi"></form></html>' );
my $elem = $html->getElementsByTagName( "form" );
print "<form action=\"", $elem->getAttribute("action"), "\">\n" if ref $elem;
と記述しているだけなので、間違いはないと思います。