Microsoft (R) Program Maintenance Utility   Version 7.00.8882
Copyright (C) Microsoft Corp 1988-2000. All rights reserved.

	C:\cpanrun-5.8\build\5-8-0\bin\perl.exe "-MExtUtils::Command::MM" "-e" "test_harness(1, 'blib\lib', 'blib\arch')" t\0-login.t t\dir.t t\grep.t t\xfer.t
t\0-login....1..1
Net::FTP::Common::VERSION = 6.1 at C:\cpanrun-5.8\depot\main\contrib-patched\perl\CPAN\src\Net-FTP-Common\blib\lib/Net/FTP/Common.pm line 50.
Using version 6.1 at t\0-login.t line 30.

Net::FTP: Net::FTP(2.65)
Net::FTP:   Exporter(5.566)
Net::FTP:   Net::Cmd(2.21)
Net::FTP:   IO::Socket::INET(1.26)
Net::FTP:     IO::Socket(1.27)
Net::FTP:       IO::Handle(1.21)

Net::FTP=GLOB(0x1d4facc)<<< 220-This service is provided by the Division of Engineering Computing 
Net::FTP=GLOB(0x1d4facc)<<< 220-Services of the College of Engineering at Michigan State University.
Net::FTP=GLOB(0x1d4facc)<<< 220-If have any unusual problems, please report them via e-mail to 
Net::FTP=GLOB(0x1d4facc)<<< 220-network@egr.msu.edu.  Archives for the following software are 
Net::FTP=GLOB(0x1d4facc)<<< 220-available on this machine:
Net::FTP=GLOB(0x1d4facc)<<< 220-   
Net::FTP=GLOB(0x1d4facc)<<< 220-o Debian/GNU Linux distribution
Net::FTP=GLOB(0x1d4facc)<<< 220-
Net::FTP=GLOB(0x1d4facc)<<< 220-  http    http://ftp.egr.msu.edu/debian/
Net::FTP=GLOB(0x1d4facc)<<< 220-  ftp     ftp://ftp.egr.msu.edu//
Net::FTP=GLOB(0x1d4facc)<<< 220-  rsync   ftp.egr.msu.edu::debian/
Net::FTP=GLOB(0x1d4facc)<<< 220-
Net::FTP=GLOB(0x1d4facc)<<< 220-o Previous Debian/GNU Linux distributions
Net::FTP=GLOB(0x1d4facc)<<< 220-
Net::FTP=GLOB(0x1d4facc)<<< 220-  http    http://ftp.egr.msu.edu/debian-archive/
Net::FTP=GLOB(0x1d4facc)<<< 220-  ftp     ftp://ftp.egr.msu.edu/debian-archive/
Net::FTP=GLOB(0x1d4facc)<<< 220-  rsync   ftp.egr.msu.edu::debian-archive/
Net::FTP=GLOB(0x1d4facc)<<< 220-
Net::FTP=GLOB(0x1d4facc)<<< 220-If your machine logs a port scan from the IP 35.9.37.225 (this server)
Net::FTP=GLOB(0x1d4facc)<<< 220-to ports 2000 - 3000, it is because your ftp client (Netscape, Internet
Net::FTP=GLOB(0x1d4facc)<<< 220-Explorer) uses non-passive ftp and your machine or firewall only allows
Net::FTP=GLOB(0x1d4facc)<<< 220-passive ftp.  STOP reporting this as abuse.
Net::FTP=GLOB(0x1d4facc)<<< 220 
Net::FTP=GLOB(0x1d4facc)>>> user anonymous

Net::FTP=GLOB(0x1d4facc)<<< 331 Please specify the password.
Net::FTP=GLOB(0x1d4facc)>>> PASS ....
Net::FTP=GLOB(0x1d4facc)<<< 230 Login successful.
ok 1
ok
t\dir........1..1
Net::FTP::Common::VERSION = 6.1 at C:\cpanrun-5.8\depot\main\contrib-patched\perl\CPAN\src\Net-FTP-Common\blib\lib/Net/FTP/Common.pm line 50.

Net::FTP: Net::FTP(2.65)
Net::FTP:   Exporter(5.566)
Net::FTP:   Net::Cmd(2.21)
Net::FTP:   IO::Socket::INET(1.26)
Net::FTP:     IO::Socket(1.27)
Net::FTP:       IO::Handle(1.21)

Net::FTP=GLOB(0x1d4fb68)<<< 220-This service is provided by the Division of Engineering Computing 
Net::FTP=GLOB(0x1d4fb68)<<< 220-Services of the College of Engineering at Michigan State University.
Net::FTP=GLOB(0x1d4fb68)<<< 220-If have any unusual problems, please report them via e-mail to 
Net::FTP=GLOB(0x1d4fb68)<<< 220-network@egr.msu.edu.  Archives for the following software are 
Net::FTP=GLOB(0x1d4fb68)<<< 220-available on this machine:
Net::FTP=GLOB(0x1d4fb68)<<< 220-   
Net::FTP=GLOB(0x1d4fb68)<<< 220-o Debian/GNU Linux distribution
Net::FTP=GLOB(0x1d4fb68)<<< 220-
Net::FTP=GLOB(0x1d4fb68)<<< 220-  http    http://ftp.egr.msu.edu/debian/
Net::FTP=GLOB(0x1d4fb68)<<< 220-  ftp     ftp://ftp.egr.msu.edu//
Net::FTP=GLOB(0x1d4fb68)<<< 220-  rsync   ftp.egr.msu.edu::debian/
Net::FTP=GLOB(0x1d4fb68)<<< 220-
Net::FTP=GLOB(0x1d4fb68)<<< 220-o Previous Debian/GNU Linux distributions
Net::FTP=GLOB(0x1d4fb68)<<< 220-
Net::FTP=GLOB(0x1d4fb68)<<< 220-  http    http://ftp.egr.msu.edu/debian-archive/
Net::FTP=GLOB(0x1d4fb68)<<< 220-  ftp     ftp://ftp.egr.msu.edu/debian-archive/
Net::FTP=GLOB(0x1d4fb68)<<< 220-  rsync   ftp.egr.msu.edu::debian-archive/
Net::FTP=GLOB(0x1d4fb68)<<< 220-
Net::FTP=GLOB(0x1d4fb68)<<< 220-If your machine logs a port scan from the IP 35.9.37.225 (this server)
Net::FTP=GLOB(0x1d4fb68)<<< 220-to ports 2000 - 3000, it is because your ftp client (Netscape, Internet
Net::FTP=GLOB(0x1d4fb68)<<< 220-Explorer) uses non-passive ftp and your machine or firewall only allows
Net::FTP=GLOB(0x1d4fb68)<<< 220-passive ftp.  STOP reporting this as abuse.
Net::FTP=GLOB(0x1d4fb68)<<< 220 
Net::FTP=GLOB(0x1d4fb68)>>> user anonymous

Net::FTP=GLOB(0x1d4fb68)<<< 331 Please specify the password.
Net::FTP=GLOB(0x1d4fb68)>>> PASS ....
Net::FTP=GLOB(0x1d4fb68)<<< 230 Login successful.
Net::FTP=GLOB(0x1d4fb68)>>> CWD /debian

Net::FTP=GLOB(0x1d4fb68)<<< 250 Directory successfully changed.
Net::FTP=GLOB(0x1d4fb68)>>> TYPE I

Net::FTP=GLOB(0x1d4fb68)<<< 200 Switching to Binary mode.
Net::FTP=GLOB(0x1d4fb68)>>> PASV

Net::FTP=GLOB(0x1d4fb68)<<< 227 Entering Passive Mode (35,9,37,225,99,162)
Net::FTP=GLOB(0x1d4fb68)>>> LIST

Net::FTP=GLOB(0x1d4fb68)<<< 150 Here comes the directory listing.
Net::FTP=GLOB(0x1d4fb68)<<< 226 Directory send OK.
input-line: -rw-rw-r--    1 21285    21285        1069 Feb 16 12:50 README at C:\cpanrun-5.8\depot\main\contrib-patched\perl\CPAN\src\Net-FTP-Common\blib\lib/Net/FTP/Common.pm line 212.

        my -rw-rw-r-- = -rw-rw-r--;
        my 1 = 1;
        my 21285 = 21285;
        my 21285 = 21285;
        my 1069 = 1069;
        my Feb = Feb;
        my 16 = 16;
        my 12:50 = 12:50;
        my README = README;
        my ;
regexp-matches for (README): $VAR1 = \{
            'owner' => '21285',
            'month' => 'Feb',
            'linkTarget' => undef,
            'inode' => '1',
            'size' => '1069',
            'group' => '21285',
            'yearOrTime' => '12:50',
            'day' => '16',
            'perm' => '-rw-rw-r--'
          };
input-line: -rw-rw-r--    1 21285    21285        1290 Dec 04  2000 README.CD-manufacture at C:\cpanrun-5.8\depot\main\contrib-patched\perl\CPAN\src\Net-FTP-Common\blib\lib/Net/FTP/Common.pm line 212.

        my -rw-rw-r-- = -rw-rw-r--;
        my 1 = 1;
        my 21285 = 21285;
        my 21285 = 21285;
        my 1290 = 1290;
        my Dec = Dec;
        my 04 = 04;
        my 2000 = 2000;
        my README.CD-manufacture = README.CD-manufacture;
        my ;
regexp-matches for (README.CD-manufacture): $VAR1 = \{
            'owner' => '21285',
            'month' => 'Dec',
            'linkTarget' => undef,
            'inode' => '1',
            'size' => '1290',
            'group' => '21285',
            'yearOrTime' => '2000',
            'day' => '04',
            'perm' => '-rw-rw-r--'
          };
input-line: -rw-rw-r--    1 21285    21285        3011 Feb 16 12:50 README.html at C:\cpanrun-5.8\depot\main\contrib-patched\perl\CPAN\src\Net-FTP-Common\blib\lib/Net/FTP/Common.pm line 212.

        my -rw-rw-r-- = -rw-rw-r--;
        my 1 = 1;
        my 21285 = 21285;
        my 21285 = 21285;
        my 3011 = 3011;
        my Feb = Feb;
        my 16 = 16;
        my 12:50 = 12:50;
        my README.html = README.html;
        my ;
regexp-matches for (README.html): $VAR1 = \{
            'owner' => '21285',
            'month' => 'Feb',
            'linkTarget' => undef,
            'inode' => '1',
            'size' => '3011',
            'group' => '21285',
            'yearOrTime' => '12:50',
            'day' => '16',
            'perm' => '-rw-rw-r--'
          };
input-line: -rw-r--r--    1 21285    21285      125869 Mar 11 19:52 README.mirrors.html at C:\cpanrun-5.8\depot\main\contrib-patched\perl\CPAN\src\Net-FTP-Common\blib\lib/Net/FTP/Common.pm line 212.

        my -rw-r--r-- = -rw-r--r--;
        my 1 = 1;
        my 21285 = 21285;
        my 21285 = 21285;
        my 125869 = 125869;
        my Mar = Mar;
        my 11 = 11;
        my 19:52 = 19:52;
        my README.mirrors.html = README.mirrors.html;
        my ;
regexp-matches for (README.mirrors.html): $VAR1 = \{
            'owner' => '21285',
            'month' => 'Mar',
            'linkTarget' => undef,
            'inode' => '1',
            'size' => '125869',
            'group' => '21285',
            'yearOrTime' => '19:52',
            'day' => '11',
            'perm' => '-rw-r--r--'
          };
input-line: -rw-r--r--    1 21285    21285       63507 Mar 11 19:52 README.mirrors.txt at C:\cpanrun-5.8\depot\main\contrib-patched\perl\CPAN\src\Net-FTP-Common\blib\lib/Net/FTP/Common.pm line 212.

        my -rw-r--r-- = -rw-r--r--;
        my 1 = 1;
        my 21285 = 21285;
        my 21285 = 21285;
        my 63507 = 63507;
        my Mar = Mar;
        my 11 = 11;
        my 19:52 = 19:52;
        my README.mirrors.txt = README.mirrors.txt;
        my ;
regexp-matches for (README.mirrors.txt): $VAR1 = \{
            'owner' => '21285',
            'month' => 'Mar',
            'linkTarget' => undef,
            'inode' => '1',
            'size' => '63507',
            'group' => '21285',
            'yearOrTime' => '19:52',
            'day' => '11',
            'perm' => '-rw-r--r--'
          };
input-line: drwxrwsr-x   11 21285    21285          22 Feb 16 12:51 dists at C:\cpanrun-5.8\depot\main\contrib-patched\perl\CPAN\src\Net-FTP-Common\blib\lib/Net/FTP/Common.pm line 212.

        my drwxrwsr-x = drwxrwsr-x;
        my 11 = 11;
        my 21285 = 21285;
        my 21285 = 21285;
        my 22 = 22;
        my Feb = Feb;
        my 16 = 16;
        my 12:51 = 12:51;
        my dists = dists;
        my ;
regexp-matches for (dists): $VAR1 = \{
            'owner' => '21285',
            'month' => 'Feb',
            'linkTarget' => undef,
            'inode' => '11',
            'size' => '22',
            'group' => '21285',
            'yearOrTime' => '12:51',
            'day' => '16',
            'perm' => 'drwxrwsr-x'
          };
input-line: drwxrwsr-x    3 21285    21285          26 Mar 11 19:52 doc at C:\cpanrun-5.8\depot\main\contrib-patched\perl\CPAN\src\Net-FTP-Common\blib\lib/Net/FTP/Common.pm line 212.

        my drwxrwsr-x = drwxrwsr-x;
        my 3 = 3;
        my 21285 = 21285;
        my 21285 = 21285;
        my 26 = 26;
        my Mar = Mar;
        my 11 = 11;
        my 19:52 = 19:52;
        my doc = doc;
        my ;
regexp-matches for (doc): $VAR1 = \{
            'owner' => '21285',
            'month' => 'Mar',
            'linkTarget' => undef,
            'inode' => '3',
            'size' => '26',
            'group' => '21285',
            'yearOrTime' => '19:52',
            'day' => '11',
            'perm' => 'drwxrwsr-x'
          };
input-line: drwxrwsr-x    3 21285    21285          61 Mar 11 20:36 indices at C:\cpanrun-5.8\depot\main\contrib-patched\perl\CPAN\src\Net-FTP-Common\blib\lib/Net/FTP/Common.pm line 212.

        my drwxrwsr-x = drwxrwsr-x;
        my 3 = 3;
        my 21285 = 21285;
        my 21285 = 21285;
        my 61 = 61;
        my Mar = Mar;
        my 11 = 11;
        my 20:36 = 20:36;
        my indices = indices;
        my ;
regexp-matches for (indices): $VAR1 = \{
            'owner' => '21285',
            'month' => 'Mar',
            'linkTarget' => undef,
            'inode' => '3',
            'size' => '61',
            'group' => '21285',
            'yearOrTime' => '20:36',
            'day' => '11',
            'perm' => 'drwxrwsr-x'
          };
input-line: -rw-rw-r--    1 21285    21285     6061806 Mar 11 20:36 ls-lR.gz at C:\cpanrun-5.8\depot\main\contrib-patched\perl\CPAN\src\Net-FTP-Common\blib\lib/Net/FTP/Common.pm line 212.

        my -rw-rw-r-- = -rw-rw-r--;
        my 1 = 1;
        my 21285 = 21285;
        my 21285 = 21285;
        my 6061806 = 6061806;
        my Mar = Mar;
        my 11 = 11;
        my 20:36 = 20:36;
        my ls-lR.gz = ls-lR.gz;
        my ;
regexp-matches for (ls-lR.gz): $VAR1 = \{
            'owner' => '21285',
            'month' => 'Mar',
            'linkTarget' => undef,
            'inode' => '1',
            'size' => '6061806',
            'group' => '21285',
            'yearOrTime' => '20:36',
            'day' => '11',
            'perm' => '-rw-rw-r--'
          };
input-line: -rw-r--r--    1 21285    21285      248220 Mar 11 20:36 ls-lR.patch.gz at C:\cpanrun-5.8\depot\main\contrib-patched\perl\CPAN\src\Net-FTP-Common\blib\lib/Net/FTP/Common.pm line 212.

        my -rw-r--r-- = -rw-r--r--;
        my 1 = 1;
        my 21285 = 21285;
        my 21285 = 21285;
        my 248220 = 248220;
        my Mar = Mar;
        my 11 = 11;
        my 20:36 = 20:36;
        my ls-lR.patch.gz = ls-lR.patch.gz;
        my ;
regexp-matches for (ls-lR.patch.gz): $VAR1 = \{
            'owner' => '21285',
            'month' => 'Mar',
            'linkTarget' => undef,
            'inode' => '1',
            'size' => '248220',
            'group' => '21285',
            'yearOrTime' => '20:36',
            'day' => '11',
            'perm' => '-rw-r--r--'
          };
input-line: drwxrwsr-x    5 21285    21285           5 Dec 19  2000 pool at C:\cpanrun-5.8\depot\main\contrib-patched\perl\CPAN\src\Net-FTP-Common\blib\lib/Net/FTP/Common.pm line 212.

        my drwxrwsr-x = drwxrwsr-x;
        my 5 = 5;
        my 21285 = 21285;
        my 21285 = 21285;
        my 5 = 5;
        my Dec = Dec;
        my 19 = 19;
        my 2000 = 2000;
        my pool = pool;
        my ;
regexp-matches for (pool): $VAR1 = \{
            'owner' => '21285',
            'month' => 'Dec',
            'linkTarget' => undef,
            'inode' => '5',
            'size' => '5',
            'group' => '21285',
            'yearOrTime' => '2000',
            'day' => '19',
            'perm' => 'drwxrwsr-x'
          };
input-line: drwxrwsr-x    4 21285    21285           5 Jan 02  2007 project at C:\cpanrun-5.8\depot\main\contrib-patched\perl\CPAN\src\Net-FTP-Common\blib\lib/Net/FTP/Common.pm line 212.

        my drwxrwsr-x = drwxrwsr-x;
        my 4 = 4;
        my 21285 = 21285;
        my 21285 = 21285;
        my 5 = 5;
        my Jan = Jan;
        my 02 = 02;
        my 2007 = 2007;
        my project = project;
        my ;
regexp-matches for (project): $VAR1 = \{
            'owner' => '21285',
            'month' => 'Jan',
            'linkTarget' => undef,
            'inode' => '4',
            'size' => '5',
            'group' => '21285',
            'yearOrTime' => '2007',
            'day' => '02',
            'perm' => 'drwxrwsr-x'
          };
input-line: drwxrwsr-x    3 21285    21285          13 Sep 12  2002 tools at C:\cpanrun-5.8\depot\main\contrib-patched\perl\CPAN\src\Net-FTP-Common\blib\lib/Net/FTP/Common.pm line 212.

        my drwxrwsr-x = drwxrwsr-x;
        my 3 = 3;
        my 21285 = 21285;
        my 21285 = 21285;
        my 13 = 13;
        my Sep = Sep;
        my 12 = 12;
        my 2002 = 2002;
        my tools = tools;
        my ;
regexp-matches for (tools): $VAR1 = \{
            'owner' => '21285',
            'month' => 'Sep',
            'linkTarget' => undef,
            'inode' => '3',
            'size' => '13',
            'group' => '21285',
            'yearOrTime' => '2002',
            'day' => '12',
            'perm' => 'drwxrwsr-x'
          };
NEW_DIR ...$VAR1 = {
          'README.html' => {
                             'owner' => '21285',
                             'month' => 'Feb',
                             'linkTarget' => undef,
                             'inode' => '1',
                             'size' => '3011',
                             'group' => '21285',
                             'yearOrTime' => '12:50',
                             'day' => '16',
                             'perm' => '-rw-rw-r--'
                           },
          'ls-lR.gz' => {
                          'owner' => '21285',
                          'month' => 'Mar',
                          'linkTarget' => undef,
                          'inode' => '1',
                          'size' => '6061806',
                          'group' => '21285',
                          'yearOrTime' => '20:36',
                          'day' => '11',
                          'perm' => '-rw-rw-r--'
                        },
          'README.CD-manufacture' => {
                                       'owner' => '21285',
                                       'month' => 'Dec',
                                       'linkTarget' => undef,
                                       'inode' => '1',
                                       'size' => '1290',
                                       'group' => '21285',
                                       'yearOrTime' => '2000',
                                       'day' => '04',
                                       'perm' => '-rw-rw-r--'
                                     },
          'project' => {
                         'owner' => '21285',
                         'month' => 'Jan',
                         'linkTarget' => undef,
                         'inode' => '4',
                         'size' => '5',
                         'group' => '21285',
                         'yearOrTime' => '2007',
                         'day' => '02',
                         'perm' => 'drwxrwsr-x'
                       },
          'tools' => {
                       'owner' => '21285',
                       'month' => 'Sep',
                       'linkTarget' => undef,
                       'inode' => '3',
                       'size' => '13',
                       'group' => '21285',
                       'yearOrTime' => '2002',
                       'day' => '12',
                       'perm' => 'drwxrwsr-x'
                     },
          'README.mirrors.html' => {
                                     'owner' => '21285',
                                     'month' => 'Mar',
                                     'linkTarget' => undef,
                                     'inode' => '1',
                                     'size' => '125869',
                                     'group' => '21285',
                                     'yearOrTime' => '19:52',
                                     'day' => '11',
                                     'perm' => '-rw-r--r--'
                                   },
          'pool' => {
                      'owner' => '21285',
                      'month' => 'Dec',
                      'linkTarget' => undef,
                      'inode' => '5',
                      'size' => '5',
                      'group' => '21285',
                      'yearOrTime' => '2000',
                      'day' => '19',
                      'perm' => 'drwxrwsr-x'
                    },
          'indices' => {
                         'owner' => '21285',
                         'month' => 'Mar',
                         'linkTarget' => undef,
                         'inode' => '3',
                         'size' => '61',
                         'group' => '21285',
                         'yearOrTime' => '20:36',
                         'day' => '11',
                         'perm' => 'drwxrwsr-x'
                       },
          'doc' => {
                     'owner' => '21285',
                     'month' => 'Mar',
                     'linkTarget' => undef,
                     'inode' => '3',
                     'size' => '26',
                     'group' => '21285',
                     'yearOrTime' => '19:52',
                     'day' => '11',
                     'perm' => 'drwxrwsr-x'
                   },
          'dists' => {
                       'owner' => '21285',
                       'month' => 'Feb',
                       'linkTarget' => undef,
                       'inode' => '11',
                       'size' => '22',
                       'group' => '21285',
                       'yearOrTime' => '12:51',
                       'day' => '16',
                       'perm' => 'drwxrwsr-x'
                     },
          'README.mirrors.txt' => {
                                    'owner' => '21285',
                                    'month' => 'Mar',
                                    'linkTarget' => undef,
                                    'inode' => '1',
                                    'size' => '63507',
                                    'group' => '21285',
                                    'yearOrTime' => '19:52',
                                    'day' => '11',
                                    'perm' => '-rw-r--r--'
                                  },
          'README' => {
                        'owner' => '21285',
                        'month' => 'Feb',
                        'linkTarget' => undef,
                        'inode' => '1',
                        'size' => '1069',
                        'group' => '21285',
                        'yearOrTime' => '12:50',
                        'day' => '16',
                        'perm' => '-rw-rw-r--'
                      },
          'ls-lR.patch.gz' => {
                                'owner' => '21285',
                                'month' => 'Mar',
                                'linkTarget' => undef,
                                'inode' => '1',
                                'size' => '248220',
                                'group' => '21285',
                                'yearOrTime' => '20:36',
                                'day' => '11',
                                'perm' => '-rw-r--r--'
                              }
        };
ok 1
ok
t\grep.......1..2
$common = {
            'Type' => 'I',
            'RemoteDir' => '/debian',
            'User' => 'anonymous',
            'Pass' => 'tbone@cpan.org',
            'Host' => 'ftp.us.debian.org'
          };
$netftp = {
            'Debug' => 1,
            'Timeout' => 120
          };
Net::FTP::Common::VERSION = 6.1 at C:\cpanrun-5.8\depot\main\contrib-patched\perl\CPAN\src\Net-FTP-Common\blib\lib/Net/FTP/Common.pm line 50.

Net::FTP: Net::FTP(2.65)
Net::FTP:   Exporter(5.566)
Net::FTP:   Net::Cmd(2.21)
Net::FTP:   IO::Socket::INET(1.26)
Net::FTP:     IO::Socket(1.27)
Net::FTP:       IO::Handle(1.21)

Net::FTP=GLOB(0x1d719f0)<<< 220-This service is provided by the Division of Engineering Computing 
Net::FTP=GLOB(0x1d719f0)<<< 220-Services of the College of Engineering at Michigan State University.
Net::FTP=GLOB(0x1d719f0)<<< 220-If have any unusual problems, please report them via e-mail to 
Net::FTP=GLOB(0x1d719f0)<<< 220-network@egr.msu.edu.  Archives for the following software are 
Net::FTP=GLOB(0x1d719f0)<<< 220-available on this machine:
Net::FTP=GLOB(0x1d719f0)<<< 220-   
Net::FTP=GLOB(0x1d719f0)<<< 220-o Debian/GNU Linux distribution
Net::FTP=GLOB(0x1d719f0)<<< 220-
Net::FTP=GLOB(0x1d719f0)<<< 220-  http    http://ftp.egr.msu.edu/debian/
Net::FTP=GLOB(0x1d719f0)<<< 220-  ftp     ftp://ftp.egr.msu.edu//
Net::FTP=GLOB(0x1d719f0)<<< 220-  rsync   ftp.egr.msu.edu::debian/
Net::FTP=GLOB(0x1d719f0)<<< 220-
Net::FTP=GLOB(0x1d719f0)<<< 220-o Previous Debian/GNU Linux distributions
Net::FTP=GLOB(0x1d719f0)<<< 220-
Net::FTP=GLOB(0x1d719f0)<<< 220-  http    http://ftp.egr.msu.edu/debian-archive/
Net::FTP=GLOB(0x1d719f0)<<< 220-  ftp     ftp://ftp.egr.msu.edu/debian-archive/
Net::FTP=GLOB(0x1d719f0)<<< 220-  rsync   ftp.egr.msu.edu::debian-archive/
Net::FTP=GLOB(0x1d719f0)<<< 220-
Net::FTP=GLOB(0x1d719f0)<<< 220-If your machine logs a port scan from the IP 35.9.37.225 (this server)
Net::FTP=GLOB(0x1d719f0)<<< 220-to ports 2000 - 3000, it is because your ftp client (Netscape, Internet
Net::FTP=GLOB(0x1d719f0)<<< 220-Explorer) uses non-passive ftp and your machine or firewall only allows
Net::FTP=GLOB(0x1d719f0)<<< 220-passive ftp.  STOP reporting this as abuse.
Net::FTP=GLOB(0x1d719f0)<<< 220 
Net::FTP=GLOB(0x1d719f0)>>> user anonymous

Net::FTP=GLOB(0x1d719f0)<<< 331 Please specify the password.
Net::FTP=GLOB(0x1d719f0)>>> PASS ....
Net::FTP=GLOB(0x1d719f0)<<< 230 Login successful.
Net::FTP=GLOB(0x1d719f0)>>> CWD /debian

Net::FTP=GLOB(0x1d719f0)<<< 250 Directory successfully changed.
Net::FTP=GLOB(0x1d719f0)>>> TYPE I

Net::FTP=GLOB(0x1d719f0)<<< 200 Switching to Binary mode.
Net::FTP=GLOB(0x1d719f0)>>> PASV

Net::FTP=GLOB(0x1d719f0)<<< 227 Entering Passive Mode (35,9,37,225,61,24)
Net::FTP=GLOB(0x1d719f0)>>> NLST

Net::FTP=GLOB(0x1d719f0)<<< 150 Here comes the directory listing.
Net::FTP=GLOB(0x1d719f0)<<< 226 Directory send OK.
GREP RETVAL: README README.CD-manufacture README.html README.mirrors.html README.mirrors.txt at t\grep.t line 28.
# Test 1 got: 'README README.CD-manufacture README.html README.mirrors.html README.mirrors.txt' (t\grep.t at line 29)
#   Expected: 'README README.CD-manufacture README.html README.mirrors.html README.mirrors.txt README.non-US README.pgp'
not ok 1
Net::FTP=GLOB(0x1d99180)<<< 220-This service is provided by the Division of Engineering Computing 
Net::FTP=GLOB(0x1d99180)<<< 220-Services of the College of Engineering at Michigan State University.
Net::FTP=GLOB(0x1d99180)<<< 220-If have any unusual problems, please report them via e-mail to 
Net::FTP=GLOB(0x1d99180)<<< 220-network@egr.msu.edu.  Archives for the following software are 
Net::FTP=GLOB(0x1d99180)<<< 220-available on this machine:
Net::FTP=GLOB(0x1d99180)<<< 220-   
Net::FTP=GLOB(0x1d99180)<<< 220-o Debian/GNU Linux distribution
Net::FTP=GLOB(0x1d99180)<<< 220-
Net::FTP=GLOB(0x1d99180)<<< 220-  http    http://ftp.egr.msu.edu/debian/
Net::FTP=GLOB(0x1d99180)<<< 220-  ftp     ftp://ftp.egr.msu.edu//
Net::FTP=GLOB(0x1d99180)<<< 220-  rsync   ftp.egr.msu.edu::debian/
Net::FTP=GLOB(0x1d99180)<<< 220-
Net::FTP=GLOB(0x1d99180)<<< 220-o Previous Debian/GNU Linux distributions
Net::FTP=GLOB(0x1d99180)<<< 220-
Net::FTP=GLOB(0x1d99180)<<< 220-  http    http://ftp.egr.msu.edu/debian-archive/
Net::FTP=GLOB(0x1d99180)<<< 220-  ftp     ftp://ftp.egr.msu.edu/debian-archive/
Net::FTP=GLOB(0x1d99180)<<< 220-  rsync   ftp.egr.msu.edu::debian-archive/
Net::FTP=GLOB(0x1d99180)<<< 220-
Net::FTP=GLOB(0x1d99180)<<< 220-If your machine logs a port scan from the IP 35.9.37.225 (this server)
Net::FTP=GLOB(0x1d99180)<<< 220-to ports 2000 - 3000, it is because your ftp client (Netscape, Internet
Net::FTP=GLOB(0x1d99180)<<< 220-Explorer) uses non-passive ftp and your machine or firewall only allows
Net::FTP=GLOB(0x1d99180)<<< 220-passive ftp.  STOP reporting this as abuse.
Net::FTP=GLOB(0x1d99180)<<< 220 
Net::FTP=GLOB(0x1d99180)>>> user anonymous

Net::FTP=GLOB(0x1d99180)<<< 331 Please specify the password.
Net::FTP=GLOB(0x1d99180)>>> PASS ....
Net::FTP=GLOB(0x1d99180)<<< 230 Login successful.
Net::FTP=GLOB(0x1d99180)>>> CWD /debian

Net::FTP=GLOB(0x1d99180)<<< 250 Directory successfully changed.
Net::FTP=GLOB(0x1d99180)>>> TYPE I

Net::FTP=GLOB(0x1d99180)<<< 200 Switching to Binary mode.
Net::FTP=GLOB(0x1d99180)>>> PASV

Net::FTP=GLOB(0x1d99180)<<< 227 Entering Passive Mode (35,9,37,225,195,158)
Net::FTP=GLOB(0x1d99180)>>> NLST

Net::FTP=GLOB(0x1d99180)<<< 150 Here comes the directory listing.
Net::FTP=GLOB(0x1d99180)<<< 226 Directory send OK.
[checking README README.CD-manufacture README.html README.mirrors.html README.mirrors.txt dists doc indices ls-lR.gz ls-lR.patch.gz pool project tools for [dists]] at C:\cpanrun-5.8\depot\main\contrib-patched\perl\CPAN\src\Net-FTP-Common\blib\lib/Net/FTP/Common.pm line 298.
ok 2
FAILED test 1
	Failed 1/2 tests, 50.00% okay
t\xfer.......1..3
$common = {
            'Type' => 'I',
            'RemoteDir' => '/debian',
            'User' => 'anonymous',
            'Pass' => 'tbone@cpan.org',
            'Host' => 'ftp.us.debian.org'
          };
$netftp = {
            'Debug' => 1,
            'Timeout' => 120
          };
Net::FTP::Common::VERSION = 6.1 at C:\cpanrun-5.8\depot\main\contrib-patched\perl\CPAN\src\Net-FTP-Common\blib\lib/Net/FTP/Common.pm line 50.

Net::FTP: Net::FTP(2.65)
Net::FTP:   Exporter(5.566)
Net::FTP:   Net::Cmd(2.21)
Net::FTP:   IO::Socket::INET(1.26)
Net::FTP:     IO::Socket(1.27)
Net::FTP:       IO::Handle(1.21)

Net::FTP=GLOB(0x1d71680)<<< 220 ftp.ddj.com FTP server (BSDI Version 7.00LS) ready.
Net::FTP=GLOB(0x1d71680)>>> user anonymous

Net::FTP=GLOB(0x1d71680)<<< 331 Guest login ok, send your email address as password.
Net::FTP=GLOB(0x1d71680)>>> PASS ....
Net::FTP=GLOB(0x1d71680)<<< 230 Guest login ok, access restrictions apply.
Net::FTP=GLOB(0x1d71680)>>> CWD /

Net::FTP=GLOB(0x1d71680)<<< 250- 
Net::FTP=GLOB(0x1d71680)<<< 250-     *******************************************************************
Net::FTP=GLOB(0x1d71680)<<< 250-     *                                                                 *
Net::FTP=GLOB(0x1d71680)<<< 250-     *        DDJ files and material are available at                  *
Net::FTP=GLOB(0x1d71680)<<< 250-     *                http://www.ddj.com/                              *
Net::FTP=GLOB(0x1d71680)<<< 250-     *                                                                 *
Net::FTP=GLOB(0x1d71680)<<< 250-     *             please go there for access                          *
Net::FTP=GLOB(0x1d71680)<<< 250-     *                                                                 *
Net::FTP=GLOB(0x1d71680)<<< 250-     *        Questions may be addressed to editors@ddj.com            *
Net::FTP=GLOB(0x1d71680)<<< 250-     *                                                                 *
Net::FTP=GLOB(0x1d71680)<<< 250-     *                        Thanks!                                  *
Net::FTP=GLOB(0x1d71680)<<< 250-     *                                                                 *
Net::FTP=GLOB(0x1d71680)<<< 250-     *******************************************************************
Net::FTP=GLOB(0x1d71680)<<< 250- 
Net::FTP=GLOB(0x1d71680)<<< 250- 
Net::FTP=GLOB(0x1d71680)<<< 250 CWD command successful.
Net::FTP=GLOB(0x1d71680)>>> TYPE I

Net::FTP=GLOB(0x1d71680)<<< 200 Type set to I.
Net::FTP=GLOB(0x1d71680)>>> PASV

Net::FTP=GLOB(0x1d71680)<<< 227 Entering Passive Mode (199,125,85,76,205,164)
Net::FTP=GLOB(0x1d71680)>>> RETR README

Net::FTP=GLOB(0x1d71680)<<< 150 Opening BINARY mode data connection for 'README' (867 bytes).
Net::FTP=GLOB(0x1d71680)<<< 226 Transfer complete.
ok 1
Net::FTP=GLOB(0x1d94110)<<< 220 ftp.ddj.com FTP server (BSDI Version 7.00LS) ready.
Net::FTP=GLOB(0x1d94110)>>> user anonymous

Net::FTP=GLOB(0x1d94110)<<< 331 Guest login ok, send your email address as password.
Net::FTP=GLOB(0x1d94110)>>> PASS ....
Net::FTP=GLOB(0x1d94110)<<< 230 Guest login ok, access restrictions apply.
Net::FTP=GLOB(0x1d94110)>>> CWD /

Net::FTP=GLOB(0x1d94110)<<< 250- 
Net::FTP=GLOB(0x1d94110)<<< 250-     *******************************************************************
Net::FTP=GLOB(0x1d94110)<<< 250-     *                                                                 *
Net::FTP=GLOB(0x1d94110)<<< 250-     *        DDJ files and material are available at                  *
Net::FTP=GLOB(0x1d94110)<<< 250-     *                http://www.ddj.com/                              *
Net::FTP=GLOB(0x1d94110)<<< 250-     *                                                                 *
Net::FTP=GLOB(0x1d94110)<<< 250-     *             please go there for access                          *
Net::FTP=GLOB(0x1d94110)<<< 250-     *                                                                 *
Net::FTP=GLOB(0x1d94110)<<< 250-     *        Questions may be addressed to editors@ddj.com            *
Net::FTP=GLOB(0x1d94110)<<< 250-     *                                                                 *
Net::FTP=GLOB(0x1d94110)<<< 250-     *                        Thanks!                                  *
Net::FTP=GLOB(0x1d94110)<<< 250-     *                                                                 *
Net::FTP=GLOB(0x1d94110)<<< 250-     *******************************************************************
Net::FTP=GLOB(0x1d94110)<<< 250- 
Net::FTP=GLOB(0x1d94110)<<< 250- 
Net::FTP=GLOB(0x1d94110)<<< 250 CWD command successful.
Net::FTP=GLOB(0x1d94110)>>> TYPE I

Net::FTP=GLOB(0x1d94110)<<< 200 Type set to I.
Net::FTP=GLOB(0x1d94110)>>> PASV

Net::FTP=GLOB(0x1d94110)<<< 227 Entering Passive Mode (199,125,85,76,205,165)
Net::FTP=GLOB(0x1d94110)>>> RETR README

Net::FTP=GLOB(0x1d94110)<<< 150 Opening BINARY mode data connection for 'README' (867 bytes).
Net::FTP=GLOB(0x1d94110)<<< 226 Transfer complete.
ok 2
Net::FTP=GLOB(0x1d71764)<<< 220 ftp.ddj.com FTP server (BSDI Version 7.00LS) ready.
Net::FTP=GLOB(0x1d71764)>>> user anonymous

Net::FTP=GLOB(0x1d71764)<<< 331 Guest login ok, send your email address as password.
Net::FTP=GLOB(0x1d71764)>>> PASS ....
Net::FTP=GLOB(0x1d71764)<<< 230 Guest login ok, access restrictions apply.
Net::FTP=GLOB(0x1d71764)>>> CWD /

Net::FTP=GLOB(0x1d71764)<<< 250- 
Net::FTP=GLOB(0x1d71764)<<< 250-     *******************************************************************
Net::FTP=GLOB(0x1d71764)<<< 250-     *                                                                 *
Net::FTP=GLOB(0x1d71764)<<< 250-     *        DDJ files and material are available at                  *
Net::FTP=GLOB(0x1d71764)<<< 250-     *                http://www.ddj.com/                              *
Net::FTP=GLOB(0x1d71764)<<< 250-     *                                                                 *
Net::FTP=GLOB(0x1d71764)<<< 250-     *             please go there for access                          *
Net::FTP=GLOB(0x1d71764)<<< 250-     *                                                                 *
Net::FTP=GLOB(0x1d71764)<<< 250-     *        Questions may be addressed to editors@ddj.com            *
Net::FTP=GLOB(0x1d71764)<<< 250-     *                                                                 *
Net::FTP=GLOB(0x1d71764)<<< 250-     *                        Thanks!                                  *
Net::FTP=GLOB(0x1d71764)<<< 250-     *                                                                 *
Net::FTP=GLOB(0x1d71764)<<< 250-     *******************************************************************
Net::FTP=GLOB(0x1d71764)<<< 250- 
Net::FTP=GLOB(0x1d71764)<<< 250- 
Net::FTP=GLOB(0x1d71764)<<< 250 CWD command successful.
Net::FTP=GLOB(0x1d71764)>>> TYPE I

Net::FTP=GLOB(0x1d71764)<<< 200 Type set to I.
Net::FTP=GLOB(0x1d71764)>>> PASV

Net::FTP=GLOB(0x1d71764)<<< 227 Entering Passive Mode (199,125,85,76,205,166)
Net::FTP=GLOB(0x1d71764)>>> RETR README

Net::FTP=GLOB(0x1d71764)<<< 150 Opening BINARY mode data connection for 'README' (867 bytes).
Net::FTP=GLOB(0x1d71764)<<< 226 Transfer complete.
ok 3
ok
Failed 1/4 test scripts, 75.00% okay. 1/7 subtests failed, 85.71% okay.
Failed Test Stat Wstat Total Fail  Failed  List of Failed
-------------------------------------------------------------------------------
t\grep.t                   2    1  50.00%  1
NMAKE : fatal error U1077: 'C:\cpanrun-5.8\build\5-8-0\bin\perl.exe' : return code '0xff'
Stop.