#! /usr/bin/perl
use strict;
use warnings;

use Net::Interface;

my $if = Net::Interface->new('eth0');
print "MAC: ", $if->mac_bin2hex(), "\n";