$tmp = @ARGV[0]; $i = 0; while( $tmp ) { $tmp >>= 1; $i += 1; } print 1 << $i;