Select Code to Download

$  perl -le 'print "T" if ((print "foo" or print "bar") and (not (prin
+t "foo" and print "bar"))'
foo
foo
bar