#!/usr/local/bin/perl

$i = 1;

while(1) {
    system("vidtomem -z 1/4 2> /dev/null");
    system("imgcopy out-00000.rgb webPic".$i.".jpg 2> /dev/null");
    ++$i;  if($i==4) { $i=1; }
    sleep(2);
}