list_files.pl
#!/bin/perl
# 28 juni 2003, by jan croonen.
# demo that uses Win32.GUI.BrowseForFolder

use strict;
require Win32::GUI;

my $picdir = getfile();
sub getfile (){
     	my $folder = Win32::GUI::BrowseForFolder(
                                -root => "",
                                -includefiles => 1,
        );
}

unless (chdir $picdir) {print "Kan pad niet naar 'huidige' wijzigen: $!\n"};
unless (opendir(THISDIR, ".")){ print "Kan huidige dir niet openen: $!\n"};

my @files = readdir(THISDIR);
closedir(THISDIR);
for (@files) {
     	if (/^\./) {next;}	#skip . and ..
     	print;
     	print "\n";
}
print "\nDruk op Enter";
<STDIN>;	# wait
print "\n";