(my $fen = $pos_calculating->fen()) =~ tr,/ ,-_,;
my $filename = $remoteglotconf::json_history_dir . "/move$halfmove_num-$fen.json";
(my $fen = $pos_calculating->fen()) =~ tr,/ ,-_,;
my $filename = $remoteglotconf::json_history_dir . "/move$halfmove_num-$fen.json";