BEGIN {
    require constant;
    my %constants = (
        FOO => 'foo',
        BAR => 'bar',
        BAZ => 'baz',
    );
    foreach my $name ( keys %constants ) {
        constant->import( $name => $constants{$name} );
    }
}