#!/usr/bin/perl

@foo = <*.mkv>;

for ($i=0; $i < scalar(@foo); $i++)
{
    $epNum = $i+1;
    $fileName = $foo[$i];
    open (STATGEN, '>statgen.avs');
    print STATGEN 'LoadPlugin("C:\avsfilters\ffms2.dll")'."\n";
    print STATGEN 'LoadPlugin("C:\avsfilters\scxvid.dll")'."\n";
    print STATGEN 'FFVideoSource("' . $fileName . '", cache=false)'."\n";
    print STATGEN 'scxvid("' . $epNum . '.stats")' . "\n";
    close(STATGEN);

    print "Processing $epNum: $fileName\n";

    `wine avs2yuv statgen.avs -o /dev/null`;
}