#!perl;
use strict;
use JSON;
my $json = new JSON->escape_slash();
my $roundParams  = {
    'AllowParticipantsToSeeEachOther'  => JSON::PP::true,
    'DurationInMinutes'                => 10,
    'MaxGamePegValue'                  => 5,
    'MaxNumberOfCrackAttemptsPerCode'  => 18,
    'MaxNumberOfCrackAttemptsPerTeam'  => 0,
    'NumberOfDefaultHostParticipants'  => 1,
    'NumberOfPegsInRound'              => 4,
    'RoundStartTime'                   => "/Date(".time.")/",
    'TimeBetweenRoundATimeBetweenRoundAttemptsInSeconds' => 10
};
print $json->encode($roundParams);