Select Code to Download

BEGIN {
  my $constants = (
    FOO => 'foo',
...
  }
  ...
}</blockquote>

BEGIN {
    require constant;
    my %constants = (
...
        constant->import( $name => $constants{$name} );
    }
}