#!/usr/bin/perl

# assume that pork.pgm is being displayed by ZGV

while (1) {
  print("about to qcam pork0.pgm\n");
  system('/usr/local/bin/qcam > pork0.pgm');
  system('ln -sf pork0.pgm pork.pgm');
  print("about to qcam pork1.pgm\n");
  system('/usr/local/bin/qcam > pork1.pgm');
  system('ln -sf pork1.pgm pork.pgm');
}