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.

##</code><code>##

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