open my $DEBUG, ">> //root/FAVOR_Data_Reports_scripts/debug_file_gen_and_mail_adv_reports.txt" or die "Can't open the debug file: $!\n"; ref ($sender = new Mail::Sender({from => 'janedoe@madeup.org',smtp => '10.11.74.18'})) or die "$Mail::Sender::Error\n"; (ref ($sender->MailFile( {to =>'johndoe@madeup.org', subject => "FY 2012-13 - All Open EOCs - Advocates Report for ".$report_date, msg => "\nAttached is the FAVOR Advocates Report for All Open EOCS - 2012-2013", debug => $DEBUG, debug_level => 4, file => $advocates_report_filename })) and print "Mail sent OK." ) or die "$Mail::Sender::Error\n";