$message =~ s/\n/\r\n/g;