package MyPackage::MailMe;

use Apache::RequestIO;
use Apache::RequestRec;

use Apache::Const -compile => 'OK';

use Mail::Sendmail;

sub handler {
  my $r = shift;

  sendMail($r->uri);

  Apache::OK;
}

sub sendMail {
  my $page_visited = shift;

  my %mail = (
         To => 'jones@company.com',
       From => 'smith@company.com',
    Subject => "Page visited",
    Message => "$page_visited was visited",
  );
  $mail{smtp} = '111.22.333.444';

  sendmail(%mail) || die "\nProblem! $Mail::Sendmail::error\n";
}