use Spreadsheet::ParseExcel;

   my $filename = shift || 'C:\Earthlink.xls';


    my $parser   = Spreadsheet::ParseExcel->new();


    my $workbook = $parser->parse($filename);


    if ( !defined $workbook ) {
        die $parser->error(), ".\n";
    }
[download]

I have done exactly as you have told. But still i find the error "File Not found" . I have cross checked whether i have put the file in C:\ or not. I have done that. Can you please help me out. Thanks in advance

No, you have not done "exactly" as toolic suggested. You're showing us single quotes around the file name. c.f. his line 3 at his first reply. See also any of the standard references re "interpolation."

pavanpvss sometimes you are not in the directory that you thought you were in. Try adding the following line to your code and run it before the 'my $filename' line.

map { print $_ . "\n" } <C:\*>;
[download]

Then check the output for your file. (note the similarities of the C:\ to your filename call).