sub capconverter {
    my($excelfile ,$HPLC_to_UV_Factor ,$HPLC_Collum ,$UV_Collum ,$Data_row_start)=@_;
     my $Excel = Win32::OLE->GetActiveObject('Excel.Application')
        || Win32::OLE->new('Excel.Application', 'Quit');
my $Book = $Excel->Workbooks->Open($excelfile);
$Excel->{DisplayAlerts}=0;
my $WorkBooknumber = 6;
my $Sheet = $Book->Worksheets($WorkBooknumber); # your work sheet number
 my $rowholder = $Data_row_start;
while ((defined ($Sheet->Cells($rowholder,1)->{'Value'}))){#&&( defined ($Sheet->Cells($rowholder,$HPLC_Collum)->{'Value'}))){
$Sheet->Cells($rowholder, 19)->{'Value'}= ($Sheet->Cells($rowholder,$HPLC_Collum)->{'Value'} *$HPLC_to_UV_Factor);    #to UV Calculation
$rowholder ++;
}
$Book->SaveAs($excelfile);
$Book->Close;
 }