"Please help me how to resolve this error your suggestions will be appreciable Is there any other method to read and write xls files in perl? "

Your problem seems to be that you have not learned from any of your previous mistakes or the advice given here. $workbook and $workbook1 are instances of Spreadsheet::ParseExcel and Spreadsheet::WriteExcel. Why do you then try to open them using open, and write to one of them using print? The reason for using these modules is to properly parse and write Excel data. Also $line1 is not defined in your script.

Read the documentation for the tools and modules you've chosen to use. Somebody could read it to you, many have continually pointed out your mistakes and shown you what to do, which you seem to ignore. We can't understand it for you.

• perlintro
• http://learn.perl.org
• http://perldoc.perl.org
• You don't need -w and use warnings;
• Consider using more meaningful variable names
• The tutorials section of this site, Use strict warnings and diagnostics or die, Debugging and Optimization
• How do I post a question effectively?

Update: fix typo.

You need to study the documentation. There are examples how to use the module properly. For example:

my $parser   = Spreadsheet::ParseExcel->new();
my $workbook = $parser->parse('Book1.xls');
[download]

and not

my $workbook   = Spreadsheet::ParseExcel->new($filename);
[download]

"Sorry update: I want to copy a .xls to another .xls file i tried"

If you simply want to create a copy of file you don't need to read and parse it.

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

use File::Copy;

copy("source.xls","target.xls") or die "Copy failed: $!"
[download]

File::Copy.

Speaking of exceptions Path::Tiny also uses File::Copy :)

$ perl -le " use Path::Tiny qw/ path /; path( 1 )->copy( 666 ) "
copy failed for 1 to 666: No such file or directory at -e line 1.
[download]

This is news to me, looks useful. Thanks.

I don't use Spreadsheet::ParseExcel any more, so I can't answer your question. I can however tell you where you are going wrong (like it says line 9 the call to Spreadsheet/ParseExcel->new()), what is going wrong (the function is expecting to be passed arguments in pairs) and how to check (look at line 167 inthe file /usr/local/share/perl5/Spreadsheet/ParseExcel.pm)

The documentation (that I can see) says that you call the Spreadsheet::ParseExcel module like this

my $parser   = Spreadsheet::ParseExcel->new();
my $workbook = $parser->parse('Book1.xls');
[download]

As others have mentioned you have some later mistakes as well, the 'worksheet' object returned by ParseExcel probably doesn't match the one needed by WriteExcel. So you have to unpick one and build up the other.

"What is the next step ???"

If you don't know what you want to do next, how are we supposed to be able to tell you? You haven't explained what you are trying to achieve. Why have you ignored the links I've given you? Have you considered not writing code? You don't seem very interested in learning how to do it.