#!/usr/bin/perl
require "$ENV{'HOME'}/cgi/tools.pl";

#
main();

#
sub main
{
	my (@lst,$i,$i2,$str,$str2);

	#
	@lst = LoadList("find . -maxdepth 1 -type f -name '*.mp4'|");

	#
	for($i=0; $i<($#lst+1); $i++) {
		$str = $lst[$i];
		$str =~ s/\.mp4$/.mpg/;
		$str = "mpg/" . $str;
		system("ffmpeg -i \"$lst[$i]\" \"$str\"");
	}

	#
}