use IO::Prompt::Tiny q(prompt);

sub remove_ok {
    my $prompt = 'Do you want to remove <alt> tags? (y/n)';
    my $default = 'n';

    my $resp = '';
    while ($resp !~ m/^[yn]/i) {
        $resp = prompt($prompt, $default);
    }
    return $resp =~ m/^y/i;
}

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
                &&  remove_ok()
            ) {
                $nodes->item($i)->removeChild($kids->item($k));

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

                $cnt++
            }
        }
    }

    return $cnt;
}