Select Code to Download

#!/usr/bin/env perl

...
$scalar = "foo";  # ok
$scalar = "bar";  # ok
$scalar = "baz";  # dies

use constant DEBUG => !!$ENV{DEVELOPMENT_SERVER};

my $scalar;
ttie $scalar, enum ["foo", "bar"] if DEBUG;