or download this
O:\atcctest\ClearCase-Argv>perl -MIPC::Open3 -e open3($i,$o,0,qw(clear
+tool));binmode $o, q(:crlf);print $i qq(chevent -rep README\n);$a=<$o
+>;print $i qq(.\n);chomp($a);$a=~s/\r\n?$//;print qq($a\n);print $i q
+(exit\n)"
Terminating on signal SIGINT(2)
...
O:\atcctest\ClearCase-Argv>perl -MIPC::Open3 -e open3($i,$o,0,qw(clear
+tool));binmode $o, q(:unix stdio);print $i qq(chevent -rep README\n);
+$a=<$o>;print $i
qq(.\n);chomp($a);$a=~s/\r\n?$//;print qq($a\n);print $i qq(exit\n)"