#!/usr/bin/perl
use constant BOOTARGS => "/proc/cmdline";
use constant WAN_IF => "eth0";
use IPC::Open3;

sub get_mac {

	my($wtr, $rdr, $err);
	my $pid = open3($wtr,$rdr,$err,"ifconfig " . WAN_IF);
	my @if_a = <$rdr>;
	my $errmsg = <$err>;
	waitpid($pid,0);
	chomp(@if_a);
	my $if = join("\n",@if_a);
	$if=~ /HWaddr ([\d,a-f,A-F][\d,a-f,A-F]:[\d,a-f,A-F][\d,a-f,A-F]:[\d,a-f,A-F][\d,a-f,A-F]:[\d,a-f,A-F][\d,a-f,A-F]:[\d,a-f,A-F][\d,a-f,A-F]:[\d,a-f,A-F][\d,a-f,A-F])/;
	my $mac = $1;
	if (!$mac) {
		print "No mac found\n";;
	} else {
		print "MAC: $mac\n";
	}
}

	my $res={};
	open INFILE, "< " . BOOTARGS or die "Can't open file: $!";
	my @lines = <INFILE>;
	close INFILE;
	chomp(@lines);
	my @args=split(/ /,$lines[0]);
	foreach my $val (@args){
		if($val =~ /^(\w*)=(.*)/){
			$res->{$1}=$2;
			print "$1 $2\n";

		}else{
			$res->{$val}=$val;
			print "Val: $val\n";
		}
	}
	get_mac();