BEGIN { $^W = 1; }
use CGI;
use CGI::Pretty;
use File::Basename;
use DirHandle;
use strict 'refs';
my $path = dirname('c:/pictemp/start.gif');
my @files;
opendir DIR, $path;
@files = readdir DIR;
my $junk;
if ($files[0] eq '.') {
    $junk = shift @files;
}
if ($files[0] eq '..') {
    $junk = shift @files;
}
my $query = 'CGI'->new;
print $query->header('text/html'), $query->start_html(-'title', 'Renaming Digital Photos', -'bgcolor', '#ffffcc');
print "<form name=newNameForm method=post action=rename.cgi>\n";
print $query->input({-'name', 'baseDir', -'type', 'hidden', -'value', "$path"});
print "\n<table border=1><tr valign=top>\n";
my $file;
my $counter = 0;
my $tempFile;
foreach $file (@files) {
    $tempFile = $path . '/' . $file;
    print "<td>\n\t" . $file . "<br>\n\t";
    print $query->input({-'type', 'hidden', -'name', "'hidden'.$counter", -'value', "$file"});
    print "\n\t";
    print $query->input({-'type', 'text', -'name', "'newName'.$counter", -'size', '30', -'value', $file});
    print "\n\t<img width=200 src=" . $tempFile . ">\n\t</td>\n";
    if (++$counter % 3 == 0) {
        print "</tr><tr valign=top>\n";
    }
}
print '</tr></table>';
print closedir DIR;