package System;

use Comm;
use Command;

my $SockObj = Comm->new();
my $ComObj = Command->new();

sub new {
	my $class = shift;
	my $self  = {
		_serveraddr => shift,
		_port => shift

	};
	bless $self, $class;
	return $self;
}