Help for this page
... my $bdate = fetchBD($firstname, $lastname, $email); ... while (my $line = <QR>){ ...
... my $bdate = fetchBD($line, $firstname, $lastname, $email); ... my $fns = index($line,'FirstName'); ...