sub showAllFiles{

    &printHeader("Displaying All Files");
    @files = ();
    find(sub{push @files, $File::Find::name}, $picPath);
    foreach $file (@files){
        print $cgi->p("$file");
    }

    &viewThumbnails(@files);

}





$numCols = 4;

sub viewThumbnails{

    @filesToDisplay = @_[0];
    foreach $file (@filesToDisplay){
        print $cgi->p("$file");
    }
    $count = 0;
    print "\n<table>\n";
    print "    <tr>\n";

    foreach $file (@filesToDisplay){

        if ($count = $numCols){
            $count = 0;
            print "    <\/tr>\n";
            print "    <tr>\n";
            print "        <td><img src=\"$file\"><\/td>\n";
	}else{
            $count++;
            print "        <td><img src=\"$file\"><\/td>\n";
	}
    }
    print "    <\/tr>\n";
    print "<\/table>\n";

}