or download this
C:\perl\5.10.1\bin\brace-compress.bat:59: while ( <> ) {
C:\perl\5.10.1\bin\c2ph.bat:488:STAB: while (<>) {
...
C:\perl\5.10.1\bin\SOAPsh.bat:29:while (defined($_ = shift || <>)) {
C:\perl\5.10.1\bin\splain.bat:451: while (defined (my $error = <>))
+ {
C:\perl\5.10.1\bin\XMLRPCsh.bat:28:while (defined($_ = shift || <>)) {