Help for this page

Select Code to Download

Select or download this

my @output = split(/\n/, `set`);
my %environment;
foreach (@output) {
...
}
print "my name is $USERNAME
my home is at $HOMEDRIVE";

Select or download this
```
my name is KJM
my home is at C:
```