my $funcName     = (caller(0))[3];
    my $player_name  = shift;
    my $mapname      = shift;
   (my $gamedir      = &send(1,"sv_gamedir"))
                     =~ s/.*: (.*)[\r\n]+/$1/;

    (my $testgamedir = $gamedir) =~ s/\W/*/;
    print STDERR "\$HOME = $HOME\n\$testgamedir = $testgamedir\n\$mapname = $mapname\n";