use Config qw( %Config ); use List::Util qw( max ); my $max = max( ~0+1, eval( $Config{ nv_overflows_integers_at } ) );