Someone

sub netmask_to_netmask {
    my $ip = shift;
    my $mask = 32;
    
    until ($ip & 1 ) {
        $mask--;
        $ip = $ip >> 1;
    }   
    
    return $mask;
}