use warnings;
use Spreadsheet::ParseExcel::SaveParser;

my $parser = Spreadsheet::ParseExcel->new();
my $workbook = $parser->parse('Test.xls');

my $worksheet = $workbook->worksheets(1);
my $row = 4;
my $col = 5;
my $cell = $worksheet->get_cell( $row, $col );
#print $cell,"\n";
print "value = ",$cell->value(), "\n";
my $cell_value = cell->value();

if($cell_value < 0 ) {
	$cell_value = 0;
}


$workbook->SaveAs( 'Test_Parse.xls' );