Select Code to Download

  print hex("0x1234567890123490"),"\n"; # Perl v5.10.0 or later

use constant CAN_PACK_QUADS => !! eval { my $f = pack 'q'; 1 };
use Math::BigInt;
print quad('ffffffffffff'), "\n";
...
    : Math::BigInt->new( '0x'.$_[0] )
}
__END__