#!/usr/bin/perl
use strict;
use warnings;

my $x = 2;

if ($x < 0, $x >1){print "example1: ok, x>1\n";}
if ($x > 1, $x <0)
{
    print "example2: x is <0\n";
}
else
{
    print "example2: x is not <0\n";
}

__END__

Useless use of numeric lt (<) in void context at C:\Projects_Perl\testing\CommaTruth.pl line 8.
Useless use of numeric gt (>) in void context at C:\Projects_Perl\testing\CommaTruth.pl line 15.
example1: ok, x>1
example2: x is not <0

##</code><code>##

#!/usr/bin/perl
use strict;
use warnings;

my $input;
while ( (print "some prompt: "), $input=<STDIN>, $input !~ /^\s*q(uit)\s*/i)
{
   print "I'm looping until you type q or quit\n";
}
print "loop exited\n";