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";