#!/usr/bin/perl -w

use strict;
use cmj_date;
use Spreadsheet::WriteExcel;

# Variables
   my $file_name = 'switch_report.xls';
   my $hash_ref  = shift;
#temp for development
#set year to 2002.
   my $month = '07';
   my $year = '2002';