Reading from STDIN via echo command doesn't work with windows

[Walter . Laub]

I wrote a script, which send messages via SMTP.
All works fine with Unix but not with Windows, when read the message from 
the echo command:

echo "123" | mail_send.pl -c [EMAIL PROTECTED] -relay 172.21.17.16


The problem is when reading from STDIN:

:
:
if ( defined $opt{message} ) {
  $message=$opt{message};
} 
else {
  print "Enter your message. Complete with: Unix/Linux: CTRL-D, Windows: 
CTRL-Z\n";
  while( $zeile = <> ) {
    $message=$message . $zeile;
  };
}
:
:

The text from echo command is NOT received from the perl script.
Without echo, all works fine also with windows.

Any ideas?

Thank You.
_______________________________________________
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs