--- frames.pl	2007/07/19 17:09:18	1
+++ frames.pl	2007/07/19 20:17:06	2
@@ -11,6 +11,7 @@
 
 my $tmp = '/tmp/frames';
 my $out = '/tmp/frames.avi';
+my $jpeg_q = 10;
 
 mkpath $tmp || die "can't create $tmp: $!";
 
@@ -49,7 +50,7 @@
 		warn "frame $frame\n";
 		my $path = sprintf('%s/%03d.jpg', $tmp, $frame++);
 		open(my $fh, '>', $path) || die "can't open $path: $!";
-		print $fh $im->jpeg(100) || die "can't save picture $path: $!";
+		print $fh $im->jpeg( $jpeg_q ) || die "can't save picture $path: $!";
 		close($fh) || die "can't close picture $path: $!";
 	}
 }