Select Code to Download

#!//usr/bin/perl
use strict;
use warnings;
...
chomp($n = <STDIN>);              #$n now holds whatever the input is 
+at STDIN

print "The value $n is", $n ? "TRUE" : "False", "\n";