The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
#!/usr/bin/perl -w
use Math::Pari;
use strict;

my $x = PARI(0);
my $y = eval{$x/$x} || eval {$x**-1};
1;