# I forget the exact path to sendmail in NT.
# -t tells sendmail to scan the message for To:, From:, etc.
$sendmail = 'c:\bin\sendmail.exe -t';

open(MAIL, ">$sendmail") || die 'Could not load sendmail!';
print MAIL <<EOF
To: batgnat@hiscorp.com
From: fileserver@hiscorp.com
Subject: 2GB Warning on File Server

Your fileserver has less than 2GB of free disk space.
EOF

close(MAIL);