#!/usr/bin/perl use strict; use warnings; no warnings 'syntax'; use Inline 'BC'; print x(); __DATA__ __BC__ define x(){ return (9^9^5) }