#!perl -pal
$"="-";$_=0<eval"$F[1]*2*@F"?Pass:Fail