gargle@msi:~$ perl -e 'use Term::Prompt qw/prompt/; use Modern::Perl; { my $p = (1==1) ? 0 : prompt( "y", "", "", "") } { local $\="\n"; print "the quick brown fox" } { local $\="\n"; print "jumps over the lazy dog." };'
the quick brown fox
jumps over the lazy dog.