How to create plugin for mpg in a digital library using perl?

I am looking for creating a plugin for g开发者_Python百科reenstone digital library for extracting metadata from mpg file.Can anyone help me with any documentation?I am totally new in perl,so I am also looking for good reference book for learning perl.

---

Image::ExifTool can be used for parsing MPEG (and many other formats) files. The documentation has many usage examples. For example, to print the BitDepth of a file:

#!/usr/bin/env perl

use strict;
use warnings;

use Image::ExifTool;

my $filename = '/path/to/file';

my $exif_tool = Image::ExifTool->new;
$exif_tool->ExtractInfo($filename);
print $exif_tool->GetValue('BitDepth');