Select Code to Download

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

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