#!/usr/bin/perl

# named pipe blocks at about 5.6k (as defined in fs.h)
# this done once per life of filesystem to create the device (named pipe)
# mknod -m 777 /dev/wearcamq p

# this done once per session from command line:
# /usr/bin/zgv /dev/wearcamq -r -1 &

while (1) {
  system('/usr/local/bin/qcam > /dev/wearcamq');
}