sub fpic_exif_ls
{
	my $hash;
	my $fn = "/mnt/images/plane.png";
	return 0 if(!fpic_exif_get("$fn",\$hash));
	foreach (keys %$hash)
	{
		print("$_ => $hash->{$_}\n)";
	}
}