$ perl -le'print "oops!" if $ARGV[ 0 ] ne sprintf "%u", $ARGV[ 0 ]'  18446744073709551615
$ perl -le'print "oops!" if $ARGV[ 0 ] ne sprintf "%u", $ARGV[ 0 ]'  18446744073709551616
oops!