#----------------------------------------url-------------------------------------------------------------------

sub lire_url {
    $info="Chargement $url...";
	
    $editortexte->delete("1.0","end");
    $editorrapport->delete("1.0","end");

    my $page = get( $url );

    if ( not defined( $page ) ){
	print "Problème lors du téléchargement !\n";
   \&bad_adresse();
	} else
	{
    $editortexte->insert("end",$page);
    my $titrerapport="Rapport sur votre texte : \n";
    $editorrapport->insert("end",$titrerapport);

    $info = "chargé.";
	}
}