#!//usr/bin/perl
use strict;
use warnings;

# 1038343

#programa 1
print "hello, world.\n";
#programa 2
print "Gimme a number: ";
# 0.0000;
my $n = 0.00000;
chomp($n = <STDIN>);              #$n now holds whatever the input is at STDIN

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