use Cwd;

if(-d $ARGV[0]){ chdir $ARGV[0]; }

$cwd_mg = $cwd = cwd();
$cwd =~ s/\\$//;

$cwd =~ m|^.*[\\/]([^\\/]*)$|;
$dirname = $1;

if($dirname eq ''){
	$cwd =~ m|^(.*):|;
	$dirname = $1;
}
print "$dirname\n\n";

opendir DIR, "./" or print "error\n$dirname\n";
@files = sort{ $a cmp $b }(readdir(DIR));
closedir DIR;

$m = 0;
$n = 1;


foreach( @files ){
	$file = $_;
	if($file !~ /\.jpg/){
		next;
	}
	if($m++ % 10 == 0){
		close LIST;
#		open LIST, ">$dirname\_$n.htm";
		open LIST, ">list\_$n.htm";
		print ">$dirname\_$n.htm\n";
		$n++;
	}
	#2003/08/10
	
	($shottime, $filesize) = (stat $file)[9, 7];
	$shottime = localtime( $shottime );

	print LIST qq[<img src="$file"><br><a href="$file">$file ($filesize\Byte)</a> - time: $shottime -<br><br>\n];
	print "$file\n";
}
close LIST;


exit();