#!/usr/bin/perl -w
use strict;

use constant B => 5;

my $name = B;

my $value = $name;

print "B gives: ", B, "\n\$name is: $name\n\$value is: $value\n";

__DATA_
B gives: 5
$name is: 5
$value is: 5