print "List of all environment variables:\n";
while ( my($env_name,$env_value) = each %ENV ) {
    print "\t$env_name = $env_value\n";
}