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\dbilogstrip.bat:53:while (<>) {
C:\perl\5.10.1\bin\perlbug.bat:994:	my $result = scalar(<>);
C:\perl\5.10.1\bin\perlthanks.bat:994:	my $result = scalar(<>);
C:\perl\5.10.1\bin\pl2pm.bat:56:while (<>) {
C:\perl\5.10.1\bin\podgrep.bat:51:while (<>) {
C:\perl\5.10.1\bin\podtoc.bat:21:while (<>) {
C:\perl\5.10.1\bin\ppm.bat:99:        last unless defined ($_ = <> );
C:\perl\5.10.1\bin\pstruct.bat:488:STAB: while (<>) {
C:\perl\5.10.1\bin\scandeps.bat:45: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 || <>)) {