Help for this page
( my $name = $ARGV[0] ) && length $ARGV[0] > 2 or die "Usage: `$0 <nam +e>` (min. 3 letters)";
my $name = $ARGV[0]
&& length $ARGV[0] > 2
while ( 1 ) { # runs forever ... ... if ( foo() ) { # only runs if foo() returns something ... }