my $msg = new MIME::Lite(
      From => "Registration System <register\@example.com>",
      ...

##</code><code>##

  From Registration-System-<register@example.com Fri Sep 26 18:36:37 2003
  Return-Path: <"Registration System <register"@example.com>
  ...
  From: Registration System <register@example.com>

##</code><code>##

  my $msg = new MIME::Lite(
      From => "register\@example.com",
      ...