Hi arunagiri,
"..How can I get only the folder names inside dir2? Is there any easy way to get it?.."

You could use basename subroutine from the module File::Basename.

Update:

    basename("/foo/bar"); # this return "bar"
   #OR
    for my $ele (glob(...)){
      print basename($ele), $/;
    }
[download]