Select Code to Download

my $multiple = ref $_[0];

...
foreach my $name ( keys %constants ) {
  ...
}

use constant undef, 'x';