#!/usr/bin/perl

use Mail::Mailer;

 $from_address = "vrempire";
 $to_address = "vrempire\@hotmail.com";
 $subject = "REGISTRATION FOR NEW MEMBER";
 $body = "REGISTRATION FOR NEW MEMBER";
 $mailer = Mail::Mailer->new();
    $mailer->open({ From    => $from_address,
                    To      => $to_address,
                    Subject => $subject,
                  })
        or die "Can't open: $!\n";
    print $mailer $body;
    
    $mailer->close();