HEX
Server: Apache
System: Linux pdx1-shared-a1-38 6.6.104-grsec-jammy+ #3 SMP Tue Sep 16 00:28:11 UTC 2025 x86_64
User: mmickelson (3396398)
PHP: 8.1.31
Disabled: NONE
Upload Files
File: //usr/share/doc/libimage-exif-perl/examples/t.pl
#!/usr/bin/perl -w

use strict;
use Image::EXIF;
use Data::Dumper;

my $exif = new Image::EXIF($ARGV[0] || "i424f2d1c0.jpg");

my $all_info = $exif->get_all_info();

print $exif->error ?
	$exif->errstr : Dumper($all_info);