Finding Prime number (Perl)

$x=<>;
chop($x);
if ($x<2) x="="2)" t="(int($x/2));" prim="1;" prim="="1">1)
{
if($x%$t==0)
{$prim=0;}
$t--;
}
if($prim==1)
{
print("$x is prime\n");}
else
{
print("$x is not prime\n");}
}
}