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";
...


##</code><code>##

String found where operator expected at server.pl line 42, near "} "Greetings, Professor. Would you like to play a game?\n""
Missing operator before  "Greetings, Professor. Would you like to play a game?\n"?)
syntax error at server.pl line 42, near "} "Greetings, Professor. Would you like to play a game?\n""

##</code><code>##

my $fh = $self->{fh};
print $fh "Greetings .....";

##</code><code>##

-----------------------------------
--the good, the bad and the physi--
-----------------------------------