#!/usr/bin/perl
#`v4lctl setinput "Composite 1"`;
`v4lctl setinput "S-Video"`;
for ($i=0; $i<200; $i++) {
  system("./autofocus $i");
  # strange bug in streamer: often the first 1 or 2 frames are bad so get more:
  system("streamer -o pork000.jpeg -f jpeg -t 9");  # grab some (e.g. 9) frames
  $outfilename = sprintf("v%03d.jpg",$i);
  system("mv pork005.jpeg $outfilename");  # keep one of them
}