Beefy Boxes and Bandwidth Generously Provided by pair Networks
more useful options
 
PerlMonks  

deMize

by deMize (Monk)
on Mar 02, 2009 at 18:08 UTC ( [id://747512] : user . print w/replies, xml ) Need Help??

my ($name,$city,$state,$country) = ("deMize","Washington","DC","USA");
my $age = <STDIN>;

chomp($age);

if ($age > 21 && age <92){
print "That is my age.";
}

1;