#!/usr/bin/perl -w
use strict;

my @a=split(/\//,$0);
my $myname=pop @a;
if ($#ARGV != -1) { die "Usage: $myname parameters\n"; }