sub email_warning {
    my $threshhold_value = $ARGV[0];
    my $current_load_avg = &run_sar();
    my $email_body = "15 minute load average of $current_load_avg has equaled or exceeded the threshhold you specified: $threshhold_value";
    open (MAIL, "|mailx -s \"15 minute load average warning\" wentworth\@localhost");
    # print $email_body;
    print MAIL $email_body;
    close MAIL;
}