sub mask_short_to_long2 {

        my @octets = unpack "b8b8b8b8", pack "V", 2 ** $_[0] -1 ;

        @octets = map {ord pack "B8", $_} @octets;

        return join '.', @octets;
    }