sub new {
	my ($class,$device,$serveraddr,$port)  = @_;
	my $self = {};
	bless ($self,$class);
	$self  = {
		'device'    => $device,
		'serveraddr' => $serveraddr,
		'port'       => $port

	};