$dec = `perl -Mbigint -wle "print 0x$value"`;