Select Code to Download

sub parseinline
{
    my $stag=0;
...
    while ($_ =~ /<\/b>/g){$etag++}
    if ($stag != $etag){print "Mismatch between start and end element 
+for '<b>' in $ARGV[0]."}
}

use XML::parser;
...
...
XML::parser->parsetag();

sub parseinline
{
    my $stag=0;
...
    while ($_ =~ /<\/$_[0]>/g){$etag++}
    if ($stag != $etag){print "Mismatch between start and end element 
+for '$_[0]' in $ARGV[0]."}
}