my $smtp;
	my $part;
	my $pingStatus;
	my $localcount;
	my $subject = "Welcome to Booking Request";

	$pingStatus = &checkTargetPing("mail.hotmail.com");
	if ($pingStatus eq 1)
	{
			$smtp = Net::SMTP::TLS->new('mail.radisys.com');
			$smtp->mail(@email);
			$smtp->to(@email);
			$smtp->mail('jason@hotmail.com');
			# $smtp->to('jason@hotmail.com');
			$smtp->data();
			$smtp->datasend("From:Booking and Managment system\n");
			$smtp->datasend("To: jason@hotmail.com\n");
			$smtp->datasend("Subject: $subject\n");
			$smtp->datasend("\n");
			$smtp->datasend("<h1>Hello</h1>\n");
			$smtp->quit;
	}