sub fpic_exif_get
{
    my ( $fn, $hashRef ) = @_;
    my $exf = new Image::ExifTool;
    %$hashRef = %{ $exf->ImageInfo( "$fn", "EXIF:*" ) };

    return 1;
}

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" );
    }
}