#!c:\perl\bin\perl.exe -w

use strict;
use warnings;

opendir(DIR, "c:\\") || die "can't opendir c:\\ ( $! ) \n";
my @rootlist = grep {/.*?/ && -d "c:\\$_" } readdir(DIR);
closedir DIR;

exit;

##</code><code>##

#!c:\perl\bin\perl.exe -w

use strict;
use warnings;

use Win32::Perms; 

opendir(DIR, "c:\\") || die "can't opendir c:\\ ( $! ) \n";
my @rootlist = grep {/.*?/ && -d "c:\\$_" } readdir(DIR);
closedir DIR;

exit;

##</code><code>##

Can't use string ("2") as a synbol ref while "strict refs" in use at test.pl line 8.