Select Code to Download

...
## easily updated                   ##
...

use constant CONST => 2;
...

#! /usr/bin/perl

...
use constant CONST2 => 3;
print CONST;
1;