Select Code to Download

package MyFlags;
use constant FooFlag => 42;
use constant BarFlag => 23;
...
package MyFlyingMonkey;
use MyFlags qw( FooFlag BarFlag );
print BarFlag . "\n";

package Potato;
use constant tuber => 1;

package main;
print Potato->tuber;