#!/usr/bin/perl -w use strict; use CGI::Carp qw(fatalsToBrowser warningsToBrowser); use CGI ':standard'; use Mail::Sender; my $host_serv = '/path/host_serv.pdf'; my $prem_serv = '/path/prem_serv.pdf'; my $email = 'jon@moi.com'; print "Content-type: text/html\n\n"; my $sender = new Mail::Sender {smtp => 'mail.mysite.com', from => 'me@site.com'}; $sender->MailFile({to => $email, subject => 'Welcome to you', msg => qq~ Welcome... ~, file => $host_serv, file => $prem_serv});
In reply to mail::sender question by jonnyfolk
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |