while (<$sock>) {
    print INPUT $_;
}