#!/usr/local/bin/perl4 -- -*- C -*-