#!/usr/bin/perl -w
use strict;
use warnings;

    use Spreadsheet::WriteExcel;
    use Spreadsheet::ParseExcel;
    my $workbook   = Spreadsheet::ParseExcel->new("/home/Admin/Desktop/RP_processed_Address_withsubscriptionID (1).xls");
    my $workbook1 = Spreadsheet::WriteExcel->new("/home/Admin/Desktop/new.xls");
    open(my$old, '<', "$workbook") or die "oops!";
    open(my$new, '>', "$workbook1") or die "ooops!";
    while (my$line = <$workbook>) {
        print $workbook1 $line
        
    }