Use

use constant C => 10;

my $var = C;
print $var . "\n";
[download]

There is no reason to use the preprocessor.