use Win32::OLE;
   
    my ($filename) = "F:\\Incidents.xls";
    my ($nextStep) = q|mysystem.cgi?f=incidents_show|;
    my ($csv) = ".\\data\\_csv\\incidents.csv";
    if(-f $filename)
     { 
       my(@fnStat) = stat($filename);
       my(@csvStat)= stat($csv);
       
       if($fnStat[9] > $csvStat[9]) {
         my($obj) = Win32::OLE->new("Excel.Application");
        $obj->Workbooks->Open (q|F:\Incidents.xls|);
        if (-f q|c:\data\_csv\incidents.csv|) {unlink(q|c:\data\_csv\incidents.csv|) or die "Cannot unlink the incidents.csv file!"};
        $obj->ActiveWorkbook->SaveAs(q|C:\data\_csv\incidents.csv|, 6);
        $obj->ActiveWorkbook->Close(0);
        $obj->Quit();
         "The Incident.xls file has been recently modified and the excel file has been created!  <a href=\"$nextStep\">Click</a>";
       }
       else
       {
         "File is okay. Proceed to CSV. <a href=\"$nextStep\">Click</a>";
       }
      } 
      else 
      { "Could not find Incidents.xls!"};