$ 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.