root@svr2 ~ # cat t.pl
#!/usr/bin/perl

use strict;
use warnings;

my $name_netzwerkkarte = 'eth0';
my $MAC_Adresse = `ifconfig "$name_netzwerkkarte" | grep co`;
print $MAC_Adresse;
root@svr2 ~ # perl t.pl
          inet6 addr: fe80::8e89:a5ff:fe2b:a31/64 Scope:Link
          collisions:0 txqueuelen:1000
root@svr2 ~ #