sub xtras{
ð
1;
}#xtras
sub eth{
$ethinfo = `ipconfig /all`;if(!$ethinfo){$ethinfo = `/sbin/ifconfig` | `ifconfig`}
$ethinfo =~ /Physical Address.*?:(.+)\W|HWaddr(.+)\W/;
$eth_mac = $1|$2;
$eth_mac =~ s/\W//g;
}