sub fpic_exif_get
{
    my ( $fn, $hashRefRef ) = @_;
    my $exf = new Image::ExifTool;

    # Funktionsergebnis in der referenzierten Variable ablegen
    $$hashRefRef = $exf->ImageInfo( "$fn", "EXIF:*" );

    return 1;
}

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