Perl codes and news

#!/usr/local/bin/perl -w

# création d'une classe 'personner
package Personne;

sub new {
    my $cl

#! /usr/bin/perl#

$compteur = 100;

do
{
   print "Compteur= $compteurn";
} until ( --$compteur ==

$texte="Bienvenu sur www.mesexemples.com";
print("Avant l'inversion la phrase:n",$texte,"n");

#

#!/bin/perl -tw

my $remote_host="127.0.0.1";      # L'adresse du serveur
my $remote_port=80;      

 ################ Utilisation de 'open' et 'sysopen' ############################
 # Pendant l'overt

#!/usr/bin/perl

for $x (0..9)
{
# génération des nombres aléatoires entre 1 et 9
$random = int( ran

#!/usr/local/bin/perl

#Conversion minuscule en majuscule
print uc("bienvenu sur perl.mesexemples.

 ################ Copie des fichiers binairs ############################
 # Copier et coller un fic

use Net::FTP;

$username = "test_username";                # Nom d'utilisateur
$password = "test_m

   #!/usr/local/bin/perl

    my %mes_villes = ("Allemagne" => "Berlin",
    			  "Angleterre" => "L