my $msg = MIME::Lite->new(
                 From     =>'johan@domain.com,
                 To       =>'user@hotmail.com',
                 Subject  =>'Registration',
                 Data     =>"Klick on the link.\n\n$link\n\n
                 );
    		$msg->send;