#!/usr/bin/perl

use strict;
use warnings;
use Info::Video;

my $info = Info::Video->new('ffmpeg');
$info->video_info();

# now $info contains the video information