BEGIN {
  if ( $ENV{TEST} ) {
    use constant FOOBAR => 23,
  }
}
print 'Foobar: ', FOOBAR, "\n";