Select Code to Download

use File::Basename;

...
}

die USAGE unless @ARGV;

my $variable = ALL_CAPS + 1;

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