print "<photolist>\n";
for $p (<*.jpg>) {
	($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size, $atime,$mtime,$ctime,$blksize,$blocks)
	     = stat($p);
	$localtime = localtime($mtime);
	$gmtime = gmtime($mtime);
	print "
<photo>
<name>$p</name>
<time>$mtime</time>
<caption></caption>
<localtime>$localtime</localtime>
<gmtime>$gmtime</gmtime>
</photo>
";
}
print "</photolist>\n";