$rh=1;
$dist=1;
print ($rh and $dist) ? 2 : -2

##</code><code>##

#!perl

sub aa
{
	$rh=shift;
	$dist=shift;
	return ($rh and $dist)
    ?    2
    :    -2;
}

print aa;