use Math::Int64 qw(net_to_int64);
my $ll = net_to_int64($str);