#!/usr/bin/perl -w

use Net::MAC;
use strict;

# MAC addresses to convert
my @addresses = qw(
001122334455
);

for (@addresses) {
  my $mac = Net::MAC->new('mac' => $_);

  my $good_macobject = $mac->convert('delimiter' => '-');
  print uc($good_macobject->get_mac()) . "\n";
}

exit();

# The end