#!/usr/bin/perl -w

use strict;
use Mail::Sender;

# need to set PATH for cron?
$ENV{'PATH'} = '/usr/kerberos/bin:/usr/local/bin:/bin:/usr/bin:/usr/sbin:/sbin';

# Get latest KPI spreadsheet
my $send_file = 'file_to_send.xls'

open my $DEBUG, ">> /tmp/j1.txt" or die "Fail $!\n";
# Set up mail sender
my $sender = new Mail::Sender (
{
    smtp => 'a.relay.server.com',
    from => 'userx@.xyz.com',
    debug => $DEBUG,
    debug_level => 4,
});
if ($Mail::Sender::Error) {
  print "New failed: $Mail::Sender::Error\n";
  exit ();
}

# variables for email
# Glenn.Lochen@xerox.com
#my $To = q(jesse.carroll@xerox.com, Craig.Elliott@xerox.com);
my $To = q(userz.@xyz.com);
my $subject = q(A Spreadsheet);
my $msg = q(Today's spreadsheet is attached);

# send the file
$sender->MailFile(
{
    to      => $To,
    subject => $subject,
    msg     => $msg,
    file    => $current_spreadsheet,
});
if ($Mail::Sender::Error) {
  print "Send failed: $Mail::Sender::Error\n";
  exit ();
} else {
  print "$current_spreadsheet sent to $To\n";
}