use strict; 
use warnings; 
 
use IPC::Open3; 
 
# example 
my $filename  = $ARGV[0]; 
my %videoInfo = videoInfo($filename); 
print "duration: " . $videoInfo{'duration'} . "\n"; 
print "durationsecs: " . $videoInfo{'durationsecs'} . "\n"; 
print "bitrate: " . $videoInfo{'bitrate'} . "\n"; 
print "vcodec: " . $videoInfo{'vcodec'} . "\n"; 
print "vformat: " . $videoInfo{'vformat'} . "\n"; 
print "acodec: " . $videoInfo{'acodec'} . "\n"; 
print "asamplerate: " . $videoInfo{'asamplerate'} . "\n"; 
print "achannels: " . $videoInfo{'achannels'} . "\n"; 
 
# 
# returns media information in a hash 
sub videoInfo { 
    # ffmpeg command 
    my $ffmpeg = 'C:\ffmpeg.exe'; 
 
    my %finfo = ( 
                  'duration'     => "00:00:00.00", 
                  'durationsecs' => "0", 
                  'bitrate'      => "0", 
                 'vcodec'       => "", 
                 'vformat'      => "", 
                 'acodec'       => "", 
                 'asamplerate'   => "0", 
                  'achannels'       => "0", 
    ); 
 
    my $file = shift; 
 
    # escaping characters 
    $file =~ s/(\W)/\\$1/g; 
 
    open3( "<C:\top.txt", ">C:\top.txt", \*ERPH,"$ffmpeg -i $file" ) or die "can't run $ffmpeg\n"; 
   my @res = <ERPH>; 
 
    # parse ffmpeg output 
    foreach (@res) { 
        print; 
 
        # duration 
        if (m!Duration: ([0-9][0-9]:[0-9][0-9]:[0-9][0-9].[0-9][0-9])!) { 
            $finfo{'duration'} = $1; 
        }      # bitrate 
        if (m!bitrate: (\d*) kb/s!) { 
           $finfo{'bitrate'} = $1; 
        } 
 
        # vcodec and vformat 
       if (/Video: (\w*), (\w*),/) { 
           $finfo{'vcodec'}  = $1; 
           $finfo{'vformat'} = $2; 
        } 
 
        # Stream #0.1(und): Audio: aac, 48000 Hz, 1 channels, s16, 64 kb/s 
 
        # acodec, samplerate, stereo and audiorate 
       if (m!Audio: (\w*), (\d*) Hz, (\d*)!) { 
            $finfo{'acodec'}     = $1; 
          $finfo{'asamplerate'} = $2; 
            $finfo{'achannels'}     = $3; 
        } 
    } 
 
    my $tenths  = substr( $finfo{'duration'}, 9, 2 ); 
    my $seconds = substr( $finfo{'duration'}, 6, 2 ); 
    my $minutes = substr( $finfo{'duration'}, 3, 2 ); 
  my $hours   = substr( $finfo{'duration'}, 0, 2 ); 
  $finfo{'durationsecs'} = ( $tenths * .01 ) + $seconds + ( $minutes * 60 ) + ( $hours * 360 ); 
 
    return %finfo; 
}

C:\Perl>perl listfiles.pl titanic.mov 
FFmpeg version Sherpya-r10707, Copyright (c) 2000-2007 Fabrice Bellard, et al. 
  libavutil version: 49.5.0 
  libavcodec version: 51.45.0 
  libavformat version: 51.14.0 
  built on Oct 11 2007 06:25:25, gcc: 4.2.1 [Sherpya] 
titanic\.mov: no such file or directory 
duration: 00:00:00.00 
durationsecs: 0 
bitrate: 0 
vcodec: 
vformat: 
acodec: 
asamplerate: 0 
achannels: 0

# escaping characters  
    $file =~ s/(\W)/\\$1/g;

"titanic\.mov: no such file or directory"

$file =~ s/(\W)/\\$1/g;

if (m/Duration: (\d\d:\d\d:\d\d\.\d\d)/) {