Take a look at Net::Ping for pinging and MIME::Lite for mailing. They'll help you accomplish all this.