#!/usr/bin/perl

my($any,$jpg)=($ARGV[0],'');

$jpg="$1.jpg" if($any=~/^(.+)\.(avi|mpg|flv)$/);

print qq{ffmpeg  -itsoffset -1.3 -i "$any" -vcodec mjpeg -vframes 1 -an -f rawvideo -s 320x240 -y "$jpg"\n};
print qx{ffmpeg  -itsoffset -1.3 -i "$any" -vcodec mjpeg -vframes 1 -an -f rawvideo -s 320x240 -y "$jpg"} if($jpg);