use File::Basename;

{
    my $name=basename $0;
    sub USAGE () { "Usage: $name [options] <args>\n" }
}

die USAGE unless @ARGV;