#!/usr/bin/perl
use Mail::Internet;

exit;

my $head = Mail::Internet->new ;
$head->add(From => 'ramanjeet@prontonetworks.com');
$head->add(To   => 'sreekumar@prontonetworks.com');
$head->add(Cc   => 'sreekumar@indscape.com');
$head->add(Cc   => 'bhavpreet@indscape.com');
$head->add(Cc   => 'paras@indscape.com');
$head->add(Subject => 'hello there');

my $body =<<END;
this is just a mail dont panic
nothing much

Regards , raman
END

$mail = Mail::Internet->new(Header => $head,
                            Body => [$body],
                            Modify => 1);

print $mail->send('sendmail');