print "do you want to remove <alt> tags Y/N \n";
chomp(my $ok = <>),
my $yes = 'y';
my $no = 'n';
$inp = lc($ok);
if ($inp eq $yes){
    print "removed <alt>";
}
elsif ($inp eq $no)
{
    print "not removed <alt>";
}


##</code><code>##


sub RemoveAltTag($)
{
my $doc = shift;

##############################
    my $cnt = 0;
    my $nodes = $doc->getElementsByTagName("image");
    
    for(my $i = 0;$i < $nodes->getLength(); $i++)
    {
     my $kids = $nodes->item($i)->getChildNodes();
     
     for(my $k =0; $k < $kids->getLength(); $k++)
     {
      if($kids->item($k)->toString() =~ /<alt>/i)
      {
       $nodes->item($i)->removeChild($kids->item($k));

       print "\n Removed <alt> tag" if $VERBOSE;
       
       $cnt++
      }
     }
    }

    return $cnt;