while ( $line = <$sock> ) {
        push @output, $line;
    }
    print $sock "BYE\n";