#!/usr/bin/perl
 
use Spreadsheet::WriteExcel;
 
$file = "/web/htdocs/osdsun80.ameritech.com/eadas/West/trend report/West.xls";
 
if (-r "$file")
{
    unlink("$file") or die "Can't Unlink $file: $!";
}
 
# Create a new workbook and add a worksheet
my $workbook  = Spreadsheet::WriteExcel->new("$file");
my $worksheet = $workbook->addworksheet("West Trend");