#!/usr/bin/perl
system('/usr/bin/zgv pork.pgm -r -1 &');
while (1) {
  system('/usr/local/bin/qcam > pork.pgm');
}