#!/usr/bin/perl -w
# version chipmunk * .04
use strict;

package First;
use constant MULTIPLIER => 5*5;
my $x = MULTIPLIER / 25;

BEGIN {$x = MULTIPLIER};

package Second;
use constant MULTIPLIER => defined $x ? First::MULTIPLIER : 2;
print MULTIPLIER * $x, "\n";
  # now what will it print?
__END__