Select Code to Download

...
            my $bdate = fetchBD($firstname, $lastname, $email);
...

    while (my $line = <QR>){
    ...

...
            my $bdate = fetchBD($line, $firstname, $lastname, $email);
...

    my $fns = index($line,'FirstName');
    ...