sub incoming_data {
    if ($sel->can_read(1)){
    my $input = <$sock>;
    $input =~ s/\r\n//g;