# Leet test print "How smart are you (1-10): "; open (INFO, "-"); $IQ = ; if ($IQ > 7) { print "1337!\n"; } else { print "1u53r!\n"; }