use File::Basename;

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

die USAGE unless @ARGV;

##</code><code>##

my $variable = ALL_CAPS + 1;

##</code><code>##

    use Readonly;
    Readonly my $PI    => 4 * atan2(1, 1);
    Readonly my $DEBUG => 0;