Select Code to Download

#!/usr/bin/perl -w
use strict;
...
while ( my ($k,$v) = each %ENV ) {
       print "$k = $v <br />\n";
}