#-----------------------------------------------------------------
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;
}