use constant TEST => $ENV{TEST}; if (TEST) { ... }