Re^4: perl tk widget will not copy files

Select or download this

use strict;
use warnings;
...
my @dirs = readdir $root;

print "$_\n" for @dirs;

Select or download this

.
..
...
Local Settings
Music
My Documents

Select or download this

Summary of my perl5 (revision 5 version 20 subversion 2) configuration
+:

  Platform:
    osname=MSWin32, osvers=6.3, archname=MSWin32-x64-multi-thread
    uname='Win32 strawberry-perl 5.20.2.1 #1 Sat Feb 21 18:04:11 2015 
+x64'

Select Code to Download