Win32::OLE(0.1702) error 0x80020009: "Exception occurred"
    in PROPERTYPUT "Value" at C:\Perl\Test\im.pl line 134
Win32::OLE(0.1702) error 0x80020009: "Exception occurred"
    in PROPERTYPUT "Value" at C:\Perl\Test\im.pl line 135
Win32::OLE(0.1702) error 0x80020009: "Exception occurred"
    in PROPERTYPUT "Value" at C:\Perl\Test\im.pl line 130
Win32::OLE(0.1702) error 0x80020009: "Exception occurred"
    in PROPERTYPUT "Value" at C:\Perl\Test\im.pl line 143
Win32::OLE(0.1702) error 0x80020009: "Exception occurred"
    in PROPERTYPUT "Value" at C:\Perl\Test\im.pl line 129
Win32::OLE(0.1702) error 0x80020009: "Exception occurred"
    in PROPERTYPUT "Value" at C:\Perl\Test\im.pl line 147
Win32::OLE(0.1702) error 0x80020009: "Exception occurred"
    in PROPERTYPUT "Value" at C:\Perl\Test\im.pl line 171
Win32::OLE(0.1702) error 0x80020009: "Exception occurred"
    in PROPERTYPUT "Value" at C:\Perl\Test\im.pl line 128
Win32::OLE(0.1702) error 0x80020009: "Exception occurred"
    in PROPERTYPUT "Value" at C:\Perl\Test\im.pl line 134

##</code><code>##

						$Sheet_tmpl->Cells($trow,4)->{'Value'} = "$data" if ($cell_info->{$count} eq 'RTO');
						$Sheet_tmpl->Cells($trow,5)->{'Value'} = "$data" if ($cell_info->{$count} eq 'RPO');
						$Sheet_tmpl->Cells($trow,6)->{'Value'} = "$data" if ($cell_info->{$count} eq 'SLA');
						$Sheet_tmpl->Cells($trow,7)->{'Value'} = "$data" if ($cell_info->{$count} eq 'Host Name');
						$Sheet_tmpl->Cells($trow,8)->{'Value'} = "$data" if ($cell_info->{$count} eq 'Location');
						$Sheet_tmpl->Cells($trow,9)->{'Value'} = "$data" if ($cell_info->{$count} eq 'SAN');
						$Sheet_tmpl->Cells($trow,10)->{'Value'} = "$data" if ($cell_info->{$count} eq 'NAS');
						$Sheet_tmpl->Cells($trow,11)->{'Value'} = "$data" if ($cell_info->{$count} eq 'DAS');
						$Sheet_tmpl->Cells($trow,12)->{'Value'} = "$data" if ($cell_info->{$count} eq 'Current Tier');
						$Sheet_tmpl->Cells($trow,13)->{'Value'} = "$data" if ($cell_info->{$count} eq 'Allocated GB');
						$Sheet_tmpl->Cells($trow,14)->{'Value'} = "$data" if ($cell_info->{$count} eq 'Actual GB');
						$Sheet_tmpl->Cells($trow,15)->{'Value'} = "$data" if ($cell_info->{$count} eq 'Storage Raw (GB)');
						$Sheet_tmpl->Cells($trow,16)->{'Value'} = "$data" if ($cell_info->{$count} eq 'Storage Growth (% per year)');
						$Sheet_tmpl->Cells($trow,17)->{'Value'} = "$data" if ($cell_info->{$count} eq 'Application Type');