$ alias perle
alias perle='perl -Mstrict -Mwarnings -Mautodie=:all -MCarp::Always -E'

##</code><code>##

chomp(my $ok = <>),

##</code><code>##

$ perle 'print "Query (Y/N): "; chomp(my $in = <>), say $in;'
Global symbol "$in" requires explicit package name (did you forget to declare "my $in"?) at -e line 1.
Execution of -e aborted due to compilation errors.
 at -e line 1.

##</code><code>##

$ perl -MO=Deparse -e 'chomp(my $in = <>), say $in;'
chomp(my $in = readline ARGV), $in->say;
-e syntax OK

##</code><code>##

print "do you want to remove <alt> tags Y/N \n";

##</code><code>##

my $ok = <>

##</code><code>##

# This dies:
$ perle 'print "Query (Y/N): "; chomp(my $in = <>); say $in;' some_arg
Can't open some_arg: No such file or directory at -e line 1.
Use of uninitialized value $in in chomp at -e line 1.
Use of uninitialized value $in in say at -e line 1.
Query (Y/N):

# This allows input:
$ perle 'print "Query (Y/N): "; chomp(my $in = <STDIN>); say $in;' some_arg
Query (Y/N): y
y

##</code><code>##

print "do you want to remove <alt> tags Y/N \n";
chomp(my $ok = <>),
my $yes = 'y';
my $no = 'n';

##</code><code>##

$inp = 

##</code><code>##

lc($ok)

##</code><code>##

if ($inp eq $yes) {...} elsif ($inp eq $no) {...}

##</code><code>##

if (fc($ok) eq fc($yes)) {
    print "Removing ...\n";
    RemoveAltTag($some_doc_variable);
}
else {
    print "No removal.\n";
}

##</code><code>##

sub RemoveAltTag($)

##</code><code>##

my $doc = shift;

##</code><code>##

for(my $i = 0;$i < $nodes->getLength(); $i++)

##</code><code>##

for my $i (0 .. $end) { ... }