note jeffa Worked fine for me on Linux. My only recomendation would be to import <tt>CRLF()</tt> from <tt>IO::Socket</tt> <code> use IO::Socket qw(:crlf); local $/ = CRLF; # Cygwin, Linux, Mac, Winders, all </code> Or just use the <tt>CRLF()</tt> constant instead of <tt>$/</tt> when you print. Here is a quote from Dr. Stein's [isbn://0201615711|Network Progamming With Perl]: <blockquote> When communicating with a line-oriented network server that uses CRLF to terminate lines, it won't be possible to set <tt>$/</tt> to <tt>\r\n</tt>. Use the explicit string <tt>\015\012</tt> instead. To make this less obscure, the [cpan://Socket] and [cpan://IO::Socket] modules ... have an option to export globals named <tt>$CRLF</tt> and <tt>CRLF()</tt> that return the correct values. </blockquote> (it is very easy to get the \r\n combo backwards ;)) <p>jeffa</p> <font size=1> <pre> L-LL-L--L-LL-L--L-LL-L-- -R--R-RR-R--R-RR-R--R-RR B--B--B--B--B--B--B--B-- H---H---H---H---H---H--- (<a href="http://jeffa.perlmonk.org/tripdid.mp3">the triplet paradiddle with high-hat</a>) </pre></font> 282468 282468