Select Code to Download

#!/usr/bin/perl

...
&send_mail::send_email ($title, $desc, $link, $epoch, $file_name, \$$i
+nput[2]);

package send_mail;
...
  $smtp->dataend(); # Finish sending the mail
  $smtp->quit; # Close the SMTP connection
}