my $i = 1;
while ( $i > 0 ){
	
	if ($sel->can_read(20)) {
		my $line = <$socket>;
		print $line;
	}
	else {
		$socket->send(";");
	}
	
}