#!/usr/bin/perl

use strict;
use warnings;

use Inline 'BC';

print x("DEADBEEFBABEFACE1234567890");

__DATA__
__BC__
ibase = 16
obase = 10
define x (a) {
    return (a * 2 + 1)
}