print "\n\n\n Entrer pour continuer... (99 pour quitter)\n";
                                       my $exit = <>;
                                       chomp $exit;
                                       if($exit == "99"){
                                       last;
                                                        }
                                             }
                                }