#!/usr/local/bin/perl

$Pgname = `basename $0`; chop $Pgname;
$Usage  = "usage: $Pgname <whatever>\n";

$Ltrace = 0;

sub usage {
	print "$Usage";
	exit;
}

sub err2 {
	local($mess,$rest) = @_;
	print STDERR "$Pgname: $mess\n";
}

sub ltrace {
	local($mess,$rest) = @_;
	print STDERR "$mess\n" if $Ltrace;
}

&usage unless scalar(@ARGV);