Генератор MAC-адресов

#!/usr/bin/perl -w
printf ("00:16:3e:%02x:%02x:%02x\n",
        int(rand(0x7f)),
        int(rand(0xff)),
        int(rand(0xff)));