#!/usr/bin/perl -w
use strict;
use warnings;
use Spreadsheet::ParseExcel;
use Spreadsheet::WriteExcel;

    my $parser   = Spreadsheet::ParseExcel->new();  my$workbook=$parser>parse('/home/Admin/Desktop/RP_processed_Address_withsubscriptionID (1).xls');
    
my $workbook1 = Spreadsheet::WriteExcel->new("/home/Admin/Desktop/Perl.xls");