perl中显示环境变量

#print("__FILE__");
@names =keys %ENV;

foreach $Item (@names)
{
    print("$Item=$ENV{$Item}\n");
}

$ENV{'CCTV'}="****cctv10******";

print("#####################################################\n");

foreach $Item (@names)
{
    print("$Item=$ENV{$Item}\n");
}