home *** CD-ROM | disk | FTP | other *** search
/ ARM Club 3 / TheARMClub_PDCD3.iso / hensa / programming / perl / perl_1 / Perl5001 / pl / Tests / TryEnv < prev    next >
Encoding:
Text File  |  1996-02-23  |  159 b   |  7 lines
  1. @keys = sort keys(%ENV);
  2. $count = @keys;
  3. print "There are $count env variables\n";
  4. print"\n\n\nKeys\n";
  5. foreach $key (@keys) {
  6.   print "$key = $ENV{$key}\n";
  7. }