#-----------------------------------------------------------------
package Node;
#-----------------------------------------------------------------
sub new
{
	my ($pkg, $ip, $mac, $hostname) = @_;
	my $obj = {};
	bless $obj, $pkg;
	$obj->IP_Address($ip);
	$obj->MAC_Address($mac);
	$obj->Hostname($hostname);
	return $obj;
}

##</code><code>##

		$nodeobj = Node->new($ip, $mac_address, $machine);
		push(@nodes, $nodeobj);