#!/usr/bin/perl

print STDERR "fake printlp invoked to print to @ARGV\n";
my($br, $buf);
while ($br = read STDIN, $buf, 8192) {
  $total += $br;
}
print STDERR "  $total bytes not actually printed.\n";