You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
6 lines
170 B
Perl
6 lines
170 B
Perl
5 years ago
|
print "How old are you? ";
|
||
|
chomp($age = <STDIN>);
|
||
|
unless ($age <= 21 ){ # If false, enter the block
|
||
|
print "Let's party!\n";
|
||
|
}
|
||
|
print "You said you were $age.\n";
|