#!/usr/bin/perl
use Mail::Sendmail;
 use strict;
 use warnings;

$mail_server = 'xxx.xxx.xx.xx';
#$email= $_POST['email'];
$mail_to = 'abc@xyz.in';
$mail_from ='xyz@bac.in';

$body="Test Mail";
 $subject = 'Test Mail';


  mail($mail_server, $mail_from, $mail_to, $subject, $body);