http://www.perlmonks.org?node_id=574014


in reply to Re^4: forwarding emails with perl??
in thread forwarding emails with perl??

I can't be bothered to test at the moment but I think your problem is the

@email = <>; my $message = join "\n", @email;
where you could possibly better off doing something like
my $message = do { local $/; <> };
But the join you have is unnecessary as you haven't removed the line endings. A
my $message = join '', @email;
would be sufficient in your code.

/J\