$mask = pack ('B32', (1 x $2), (1 x (32 - $2)));
$new {ISPP} {inet_aton ($1) & $mask} =                                                                
               $mask . pack ('B32', (1 x 32));