Just to round out the thread:

#! Perl -w
use strict;

open (READ, "ipconfig /all|") or die "$!";
  while (<READ>) {
       chomp;
            if (/Physical Address/) {
                my @pieces =    split(/:/);
               print $pieces[1];
            }
  }
  close READ;
[download]