remove unneeded parens
add a comment
transmit code segment in binary by running it through Data::Dumper
transmit payload segment in binary by putting $fh and STDIN into binmode