my $z=17;

my $m= $z<4? 2:  1<<( 63-( clz($z) +1) );  # 64-bit system integer
my $m= $z<4? 2:  1<<( 31-( clz($z) +1) );  # 32-bit system integer