Lol

my $logfilehandle;

sub loader {
  ...
  open($logfilehandle, “>>feed.html”) or print “error: $!”;
}

sub observe_nick {
  my ($nick, $host, $chan, $text) = @_;
  print “chanlog [$chan] <$nick> $text\n”;
  if ($text =~ /^[W|w]elcome/ && $nick eq “Light”) {
    print “ignoring welcome msg\n”;
    return;
  }

  # escape html codes
  $text =~ s/</\&lt;/;
  $text =~ s/>/\&gt;/;

  print $logfilehandle “$nick - $chan - $text<br><br>\n”;
}

sub unloader {
  ...
  close($logfilehandle) or die $!.”\n”;
}