#!/usr/bin/perl -w
if( !$ARGV[0])
{
  die "Run with filename: screenshot.pl film.avi";
}
$i=1;
#делаем скриншот каждые 5 минут
$increment=600;
#Первый скриншот делаем в 5 минут от начала фильма
$time=600;
#Имя файла из которого будем делать скриншоты
$input=$ARGV[0];
chomp $input;
$run=1;
do
{
  `/usr/local/bin/ffmpeg -i $input -ss $time -y $i.jpg`;
   $time=$time+$increment;
   unless( -e "$i.jpg" )
   {
       $run=0;
   }
   $i=$i+1;
}while($run eq 1)