$val="D:\\VmWare\\*";
find(\&print_name, "$val");

sub print_name
{
    push(@array_name,$File::Find::name);
}

foreach $val(@array_name)
{
print "$val \n";
}