package Player;

my %players = ();

sub new {
    my $package = shift;
    my $self    = bless { mux  => shift,
                          fh   => shift } => $package;
    # Register the new player object as the callback specifically for
    # this file handle.

    $self->{mux}->set_callback_object($self, $self->{fh});
        
    print $self->{fh} "Greetings, Professor. Would you like to play a game?\n";
...