Code:

#!/usr/bin/perl -w#Created by Erik Mathis: erik@fluidgravity.com 09/02# Insert Email address here, dont forget to add the "\" before the "@"@addr=("change\@this.now","email2\@this.now");# Path to the log you want to email, insert "\" for each "/" and "\" before each"."$path="\/home\/eggdrop\/eggdrop\/logs\/channelname\.log\.yesterday";#Your subject text here, this will be appened with the date after it, you may have to use "_" for spaces$sub="replace_this";#Date/Time formatting@Months=('January','February','March','April','May','June','July','August','September','October','November','December')@WeekDays=('Sunday','Monday','Tuesday','Wednesday','Thursday','Friday','Saturday');($Sec,$Min,$Hour,$Day,$Month,$Year,$Week_Day) = (localtime);$Year += 1900;if ($Sec  < 10) { $Sec = "0".$Sec; }if ($Min  < 10) { $Min = "0".$Min; }if ($Hour < 10) { $Hour = "0".$Hour; }if ($Day < 10) { $Day = "0".$Day; }#Setting Subject Line$subject="$sub,_$WeekDays[$Week_Day]_$Months[$Month]_$Day,$Year";#Sending Mailforeach $email (@addr) {system "mail $email -s $subject < $path";}