#!/usr/bin/perl

use strict;

BEGIN {
   do "constants.pl";
   die $@ if $@;
}

my $var = MY_CONSTANT3;
print "$var\n";