$ perl -MO=Deparse tp.pl 'division'->Illegal('zero'->by('at' / 'tmp' / 'quine' . 'line'->pl(1))); tp.pl syntax OK
$ perl -e 'at / tmp' Illegal division by zero at -e line 1.