sub fpic_exif_get {

    my $filename = shift;
    my $exif     = Image::ExifTool->new();

    my $hRef = $exif->ImageInfo( $filename, "EXIF:*" );

    return $hRef;
}

sub fpic_exif_ls {

    my $filename = "/mnt/images/plane.png";
    
    if ( my $hashref = fpic_exif_get( $filename ) ) {
        for my $k ( keys %$hashref ) {
             printf "%s => %s\n", $k, $hashref->{$k};
        }
    }
}