#!/lusr/bin/perl

@files = `ls *.mng`;

foreach $file (@files) {
    chomp $file;
    ($first, $last) = split /\./, $file;
    print "Processing $first...\n";

    $mpegfile = "$first.mpg";
    if( ! (-f $mpegfile) ) {
	print "not exists: $mpegfile\n";
	`convert $file $mpegfile`;
    }

    $jpegfile = "$first.jpg";
    `convert $file a.jpg`;
    `mv a.jpg.11 $jpegfile`;
    `rm a.jpg.*`;

    
}