Select Code to Download

package MAC;

...
  return join(":", @hexmac);
  }
  1;

use strict;
use warnings;
...

print $mac->decrease(256) . "\n";
print $mac->decrease(16777216) . "\n";