Help for this page

Select Code to Download


  1. or download this
     my @name = split(/ /, $msg->{Subject});
  2. or download this
     print $email_fh $msg->{Body}=~s/^/foobar $name /rgm;