#!/usr/local/bin/perl -w
###########################################
# video-meta -- Show meta data of a video
# Mike Schilli, 2009 (m@perlmeister.com)
###########################################
use strict;
use Data::Dump qw(dump);
use Video::FrameGrab;

my($file) = @ARGV;
die "usage: $0 file" unless defined $file;

my $grabber = Video::FrameGrab->new(
    video => $file);

my $meta = $grabber->meta_data();
print dump($meta), "\n";