#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");
}