Nested While Loop Problem

Select or download this

Attempting to connect to remote host...
Initialising rctrlx server component...
...
               0 Dir(s)  27,333,230,592 bytes free

Remote application exited with code: 0

Select or download this

my $workdir = "c:\\MalwareScanner\\lclscn";

...
        }
    }
}

Select or download this

[print "XXXX$dir\n";]
[print "$dir\n";]

Select or download this

\n
\n
...
c:\WINDOWS\system32
c:\WINDOWS\system32
c:\WINDOWS\system32

Select Code to Download