Run it, select "DirTree, diplay directory tree" in the "User contributed Demonstrations" section; in the WidgetDemo window, click on "See Code".

Well, I guess this is what you want. Where do you want to "show directory like a folder in windows"? on the Desktop, in some window, in a hierarchical list, on a button, in a menu entry, next to a textbox, as a label?

See How (Not) To Ask A Question.

<update>

The widget shown in the Tk demo is a composite widget, you'll find the source code for that in the file DirTree.pm in your perl library folder.

</update>

--shmem

_($_=" "x(1<<5)."?\n".q·/)Oo.  G°\        /
                              /\_¯/(q    /
----------------------------  \__(m.====·.(_("always off the crowd"))."·
");sub _{s./.($e="'Itrs `mnsgdq Gdbj O`qkdq")=~y/"-y/#-z/;$e.e && print}