sub sender_mail {
no strict "refs";
my ($user1,$diff1) = @_;
my $body_file = "/usr/local/squid/etc/aclfiles/letter";
        open (BODY_FILE,$body_file);
        my @body = <BODY_FILE>;
        close (BODY_FILE);

my $from = "nobody.domain.com";
my $subj = "Web access changes.";
my $sender;
($sender = new Mail::Sender ({
        from => $from, smtp => 'localhost'})) || die "$!";
        ($sender->MailFile(
        { to => $user1, subject => $subj, msg => "@body", file => $diff1  }))
}