in reply to perl tk widget will not copy files

while (my $restore_bak = readdir(DIR)) {
  # push  (@restore_files, "$restore_bak\n");
  push @restore_files, $restore_bak;
}

[download]
poj

In Section Seekers of Perl Wisdom