#!/usr/bin/perl -w

use strict;

use constant FIRST => 25;

my $x ;

BEGIN { $x = FIRST; }

use constant SECOND => defined $x ? FIRST : 2;

print SECOND * $x, "\n";

__END__