use DBI;
use Data::Dumper;

my $db = DBI->connect("DBI:mysql:dev", '*****', '******', { RaiseError => 1 });

$db->do("drop table test");
$db->do("create table test (foo bigint)");

print '---------------------------------------------';

do {
	use bigint; # Need this to make larger numbers
	my $i = 1 << 62;
	print $i; # 4611686018427387904
	print ref $i; # Math::BigInt
	$db->do('insert into test values(?)', {}, $i);
};

print '---------------------------------------------';

do {
	my $a = $db->selectrow_arrayref('select * from test');
	my $i = $a->[0];
	print $i; # 4611686018427387904
	print ref $i; # <blank>
	print 0 + $i; # 4.61168601842739e+18
};