#!/usr/bin/env perl
# genmac -- generate a MAC address and display in several formats

my @bytes = map {int rand 256} 1..6;

$bytes[0] &= ~1; # clear "unicast/group" bit
$bytes[0] |= 2;  # set "global/local" bit

print join(":", map {sprintf "%02X", $_} @bytes), "\n";
