Perl中设置环境变量的例子

#!/usr/bin/perl

while (my ($key,$value)=each %ENV)
{
    print "$key: $valuen";
}
$ENV{'PATH'}="/opt/usr/bin";