#!/usr/bin/perl

use strict;
use warnings;

my $mask = hex($ARGV[0]);

my $setbits = unpack("%32b*", $mask);

printf("0x%x has %d set\n", $mask, $setbits);