use strict; 
use Spreadsheet::ParseExcel; 
use Spreadsheet::ParseExcel::SaveParser; 
#use Spreadsheet::WriteExcel; 
 
################################################################################ 
# Description: Perl script example for opening and modifying excel spread-sheet  
################################################################################ 
 
    # Open existing spread-sheet with SaveParser 
    my $read_excel   = Spreadsheet::ParseExcel::SaveParser->new(); 
    my $excel_data = $read_excel->Parse('Example.xls'); 
 
    # Get the first worksheet 
    my $sheet1 = $excel_data->worksheet('Sheet1'); 
 
    # Get the same format from original cells to be used for writing new data  
    my $original_cell1 = $sheet1->get_cell(3,1); 
    my $format_number1 = $original_cell1->{FormatNo1}; 
 
    # Append new data into original worksheet   
    $sheet1->AddCell(3, 2, 'ww8.1', $format_number1); 
 
    # Write over existing file or write a new file 
    $excel_data->SaveAs('ModifiedExcel.Practice.xls');

use Spreadsheet::ParseExcel::Workbook;