#!/usr/bin/perl 
use strict;
use warnings;
use win32::ole;

my (%ENV_VAR) = ( 'ALLUSERSPROFILE' => 'C:\Documents and Settings\All Users', 
'APPDATA' => 'C:\Documents and Settings\prr2n88f\Appication Data',
'CLEARCASE_PRIMARY_GROUP' => 'wp003\05083_ccuser_g',
'ClientVersion' => '2.24.103',
'CommonProgramFiles' => 'C:\Program Files\Common Files',
'COMPUTERNAME' => 'CAL20ZYC');


my $key = keys %ENV_VAR;
my $value = values %ENV_VAR;
while (($key, $value) =each %ENV_VAR) {
print "$key => $value\n";
}
if (exists $ENV_VAR{'ClientVersion'}){
print "this Environment variable is present\n";}
else {
print "This Environment variable is not present\n"
}

if ($ENV_VAR{ClientVersion} = $ENV{ClientVersion})
 { print "$ENV_VAR{ClientVersion}\n"

}
else {
print "Something is going wrong!!"
}