open (READ, "ifconfig fxp0 |") or die "$!";
while (<READ>) {
     chomp;
     if (/ether/) {
          s/^\s+//;
          my $mac = (split)[1];
     }
}
close READ;