use constant C => 10;

my $var = C;
print $var . "\n";