&extract_data();
sub extract_data()
{
	 my $parsedata   = Spreadsheet::ParseExcel->new();	
	 my $workbook_data = $parsedata->parse('test.xls');	
		
		for my $worksheet1 ( $workbook_data->worksheet(0) )
			{
				for my $col ($col_min .. $col_max)
					{
						
						my $cell = $worksheet1->get_cell( 0, $col );
							if($p_name eq $cell)
								{
									print("Done");
								}
					
					}
			
			}
	
}	

##</code><code>##

Can't call method "worksheet" on an undefined value at D:\Perl\Xls_handling.pl line 110, <STDIN> line 6.

##</code><code>##

Can't call method "worksheet" on an undefined value at D:\Perl\Xls_handling.pl line 110, <STDIN> line 6.