#! /usr/bin/perl

  use Sys::Syslog;

  openlog "freax.pl", "cons.pid", "local3";

  $counter = 10;

  syslog "debug", "Der Counter steht auf %d", $counter;

  $counter++;

  syslog ('news|notice', "Und jetzt steht er auf %d.", $counter);

  closelog;