#!/usr/bin/perl -w use Math::Pari; use strict; my $x = PARI(0); my $y = eval{$x/$x} || eval {$x**-1}; 1;