#!/usr/bin/perl
use strict;
use warnings;

my $pontos = 0;
my $resp;

print "=== JOGO DE PERGUNTAS ===\n";

# Pergunta 1
print "\nPergunta 1: Quanto é 513 + 234?\n";
print "a) 737\nb) 747\nc) 757\n> ";
$resp = <STDIN>;
chomp($resp);
$resp = lc($resp);

if ($resp eq "b") {
    $pontos++;
}

# Pergunta 2
print "\nPergunta 2: Qual é o primeiro planeta do sistema solar?\n";
print "a) Terra\nb) Vênus\nc) Mercúrio\n> ";
$resp = <STDIN>;
chomp($resp);
$resp = lc($resp);

if ($resp eq "c") {
    $pontos++;
}

# Pergunta 3
print "\nPergunta 3: Qual a capital de Mato Grosso?\n";
print "a) Campo Grande\nb) Cuiabá\nc) Goiânia\n> ";
$resp = <STDIN>;
chomp($resp);
$resp = lc($resp);

if ($resp eq "b") {
    $pontos++;
}

print "\nPontuação final: $pontos/3\n";