http://qs1969.pair.com?node_id=792359

This snippet shows how to get the thumbnail from exif metadata. This is very usefull for generating very fast thumbnails!! I hope many would benefit from this.
use Image::ExifTool qw(ImageInfo);
my $exifTool = new Image::ExifTool;
$exifTool->Options(Binary => 1);
my $info = $exifTool->ImageInfo('image_file.jpg', 'thumbnailimage');
my $data = ${$$info{ThumbnailImage}};
my $loader = Gtk2::Gdk::PixbufLoader->new();
$loader->write($data);
$loader->close();
$pixbuf = $loader->get_pixbuf();

[download]
since you are able to make the thumbnail into a pixbuf then you may now use your favourite widget to preview the thumbnail.

the $exifTool is an Image::ExifTool, so you need this module to make it work. you can yum it using... yum install perl-Image-ExifTool.

*some of the codes i got from other monks*

Back to Cool Uses for Perl