#!/usr/bin/perl

$thedir = `pwd`;
$thesize = "320x240";
$therate = "500k";


chomp($thedir);
print "$thedir\n";

opendir(THEDIR,"$thedir") or die "no dir.\n";

while ($name = readdir(THEDIR)) {
        if ($name =~ ".wmv") {
                print "$name\n";
                $thumbnail = "tn" . "$name";
		`ffmpeg -i $name -s $thesize -b $therate -vcodec wmv2 converted/$name`;
        }

}

closedir(THEDIR);