use English qw( -no_match_vars );
    # use awk else at least alpha var names
    # and disable pre/post-match vars (not needed)
    # for performance

# ...

# note: $RS = "\n" is already the default!
{ local $ORS = "\r\n";
  map { chomp; print $sock $_; } <FILE>;
}