Help for this page

Select Code to Download

Select or download this

foreach my $key ( keys %ENV ) {
  my $val = $ENV{$key};
  delete $ENV{$key};
  $ENV{ uc $key } = $val;
}

Select or download this

foreach my $key ( keys %ENV ) {
  $ENV{ uc $key } = $ENV{$key};
}