$excel    = CreateObject OLE "Excel.Application";

    $workbook = $excel    -> Workbooks -> Open("$outxls");
    $sheet    = $workbook -> Worksheets(1) -> {Name};
    $sheet    = $workbook -> Worksheets($sheet);
    $sheet                -> Activate;


    $sheet->{Name} = "RVG Engines";

    my $lastrow = $sheet->UsedRange->Find({What=>"*",
SearchDirection=>xlPrevious, SearchOrder=>xlByRows})->{Row}
    if $sheet->UsedRange->{Count}>1;

    $lastrow += 1;
    $sheet -> Range("A$lastrow") -> {Value} = $date;
    $sheet -> Range("B$lastrow") -> {Value} = $daemons;
    $sheet -> Range("C$lastrow") -> {Value} = $engines;
$excel->{DisplayAlerts} = 0;
    $workbook->SaveAs($outxls);
    $excel->Quit