#!perl
use strict;
use warnings;


print "Wie heisst die Hauptstadt von Frankreich?\n\n";

chomp(my $a = <STDIN>)
if (lc($a) eq 'Paris') {
    print "Stimmt! ...Weiter zur naechsten Frage...\n\n";
} else {
    print "Falsch... Die richtige Antwort ist: Paris.\n\n";
}
sleep 10;

print "Wie heisst der/die Bundeskanzler/in von Deutschland?";