#!/usr/local/bin/perl -w

use strict;
use Mail::Mailer;

my %hash = (

    '742+evergreen+terrace' => '60516',
    '1094+evergreen+terrace' => '60187'

    );

notify(\%hash);

sub notify {

    my $error_hash = shift;

    foreach my $address (keys %$error_hash) {
         $contents = "$address $error_hash->{$address}";
    }

    my $from = 'system@system.com';
    my $to = 'me@system.com';
    my $subject = 'Warning';
    my $body = $contents;
    
	my $mailer = Mail::Mailer->new("sendmail");
	
        $mailer->open({
   		From    =>  $from,
   		To      =>  $to,
   		Subject =>  $subject,
   	})
   	or die "Can't open: $!\n";

	print $mailer $body;

	$mailer->close();

}