use Spreadsheet::ParseExcel;
my $parser   = Spreadsheet::ParseExcel->new();
my $workbook;
{
    local $^W;
    $workbook = $parser->parse('C:/Downloaded/DEC_10_DP_DPDP1.xls') or die $!, $^E;
}