Select Code to Download

#!/usr/bin/perl
use strict;
...
Useless use of numeric gt (>) in void context at C:\Projects_Perl\test
+ing\CommaTruth.pl line 15.
example1: ok, x>1
example2: x is not <0

#!/usr/bin/perl
use strict;
...
   print "I'm looping until you type q or quit\n";
}
print "loop exited\n";