sub mask_short_to_long1 {

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

        @octets = map {unpack "C", pack "b8", sprintf "%08b", $_} @octets;

        return join '.', @octets;
    }