sub fpic_exif_get
{
	my($fn,$hash) = @_;
	my $exf = new Image::ExifTool;
	$hash = $exf->ImageInfo("$fn","EXIF:*");
	foreach (keys %$hash)
	{
		print("$_ => $hash->{$_}\n)";
	}
	return 1;
}