package Foo;
use base qw(Net::Server);

open(my $log, '>>', 'log.txt')
    || die "Couldn't open log.txt: $!";

Foo->run(port => 7777);

sub process_request {
  while (<STDIN>) {
    print "You said: $_";
    print $log "They said: $_";
  }
}