$ perl -e 'use Modern::Perl; say "the quick brown fox"; say "jumps over the lazy dog.";'
the quick brown fox
jumps over the lazy dog.

##</code><code>##

$ perl -e 'use Term::Prompt; use Modern::Perl; my $p = prompt( "y", "start?", "", ""); say "the quick brown fox"; say "jumps over the lazy dog.";'
start? (y or n) [default n]
the quick brown foxjumps over the lazy dog.

##</code><code>##

$ perl -e 'use Term::Prompt; my $p = prompt( "y", "start?", "", ""); { local $\="\n"; print "the quick brown fox"}; { local $\="\n"; print "jumps over the lazy dog."}'
start? (y or n) [default n]
the quick brown foxjumps over the lazy dog.

##</code><code>##

$ perl -e 'use Term::Prompt; my $p = prompt( "y", "start?", "", ""); print "the quick brown fox\n" ; print "jumps over the lazy dog."'
start? (y or n) [default n]
the quick brown fox
jumps over the lazy dog.