#!/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});