sub notify ($$) {
my ($head, $body) = @_;
sub notify ($$) {
my ($head, $body) = @_;
+ $body =~ s:\&:&:g;
+ $body =~ s:\<:<:g;
+ $body =~ s:\>:>:g;
my $kid = fork;
defined $kid or return;
if (!$kid) {
my $kid = fork;
defined $kid or return;
if (!$kid) {