Select Code to Download

sub email_warning {
    my $threshhold_value = $ARGV[0];
...
    print MAIL $email_body;
    close MAIL;
}