package C;

my $consts = { CONST1 => 1,
               CONST2 => 2,
               CONST3 => 3,
               CONST4 => 4,
                . . . 
             };
use overload '``' => sub { return $const_values{shift} } ;

# All constants can be accessed as by using AUTOLOAD
sub AUTOLOAD {
    no strict 'refs', 'subs';
    if ($AUTOLOAD =~ /.*::([A-Z]\w+)$/) {
      my $const_name = $1;
      *{$AUTOLOAD} = sub {return $const_values{$const_name}};
        return $const_values{$const_name};
    }
    return undef;
}
 
1;