#!/usr/bin/perl -w

print "Network Configuration\n";
my $ifconfig=`ifconfig eth0`;
print "MAC Address: $1\n" if($ifconfig =~ /HWaddr ([0-9abcdef:]+)/i);
print "IP Address: $1\n" if($ifconfig =~ /inet addr:([\d\.]+)/);
print "Netmask: $1\n" if($ifconfig =~ /Mask:([\d\.]+)/);
my $route=`route`;
print "Default Gateway: $1\n" if($route =~ /default\s+([\d+\.]+)/);
print "\n";

print "Hardware\n";
open CPUINFO,"/proc/cpuinfo" or die;
my %cpuinfo = map { /^(.*?)\s+:\s+(.*?)$/ ? ($1,$2) : () } <CPUINFO>;
close CPUINFO;

open MEMINFO,"/proc/meminfo" or die;
my $mem=0;
while(<MEMINFO>) { 
	chomp;
	if(/^MemTotal:\s+(\d+ kB)$/) {
		$mem = $1;
	}
}
close CPUINFO;
print "CPU: $cpuinfo{'model name'} - $cpuinfo{'cpu MHz'}\n";
print "Memory: $mem\n" if($mem);