sub insertQuarter {
    my ($coin) = @_;
    (defined($coin) && $coin == 25) || die "You must insert 25 cents";
    initializeGame();
    startGame();
}