Show all hidden folder in handy drive

print "\n [+] Show hidden folders in root partition (Windows)\n [+] Enter name's partition (Ex. G:) :  ";
chomp($drive=<STDIN>);
unless ($drive) { exit; }
unless ($drive=~/:$/) { $drive.=':'; }
@a=`dir /A $drive`;
chomp(@a);
$count=0;
foreach (@a) {
    if ($_=~/<DIR>/) {
        $folder[$count]=$_;
        $count++;
    }
}

foreach (@folder) {
    $_=~s/([^~]*?)<DIR>\s\s\s\s\s\s\s\s\s\s//ig;
    system("attrib -s -h -r \"$drive$_\"");
    print "$_\n";
}

print "\n\n      Success !\n\n Script by AssazziN\n     22/03/2011\n";
#http://comfreedom.blogspot.com
<STDIN>;