#!/usr/bin/perl
use strict;
use Spreadsheet::WriteExcel;
use Spreadsheet::ParseExcel::Worksheet;
use Parse::RecDescent;

#use Spreadsheet::XLSX;
use Parse::RecDescent;
use Spreadsheet::ParseExcel;
use Spreadsheet::ParseExcel::SaveParser;
use POSIX qw/strftime/;
#use Spreadsheet::WriteExcel;
#user arguments: copy, date, machine , arch,
my $curr_date = $ARGV[0];
my $cp =1;
my $parser = Spreadsheet::ParseExcel::SaveParser->new();
my $readxls = $parser->Parse("perl_$cp.xls");
my $worksheet = $readxls->worksheet('sum-base');
my $worksheet_p = $readxls->worksheet('sum-peak');
my $worksheet_t = $readxls->AddWorksheet($curr_date);

 $readxls->SaveAs("perl_$cp.xls");