if(open IPFH,"<$fname")
            {
              seek IPFH,0,0;
              while (! eof IPFH)
               {
                my $con=<IPFH>;
                chomp $con;
                my($variable,$value)=split '=',$con;
                chomp $variable;
                chomp $value;
                $ENV{"$variable"}=$value;
            
             }