sub is_power_of_2{
	$num = shift;
	$num2 = 1;
	while ($num>$num2){
		$num2=$num2<<1;
	}
	return ($num^$num2)?0:1;
}