# 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