Perl codes and news

#!/usr/local/bin/perl

use strict;

for my $lettre('a'..'z','A'..'Z')   #En minuscule et majuscule

#!/usr/bin/perl -w


use Mail::Mailer;

my $from_address="moi@email.com";           # Destinateur
my

#!/usr/bin/perl

@lang = qw(Perl Python Java);
$indice = 1;

$text = "J'aime $lang[0]";
print "$text

#!/usr/bin/perl -w
use warnings;

$str= "5 Livres";

# Seule la prtie numérique de la chaîne $str es

#!/usr/local/bin/perl

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

#!/usr/bin/perl

# Définition d'un tableau de 3 éléments
@tab = ("Janvier", "Mars", "Mai");

#Affich

#!/usr/bin/perl -w
#################### Hash ##################"
# Le Hash est un tableau associatif

#!/usr/local/bin/perl
  ############## Socket Client ################

use Socket;                  

#!/usr/local/bin/perl

use IO::Socket;

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

 #!/usr/local/bin/perl

use strict;

my $mon_ping = Net::Ping->new("tcp");

(defined $mon_ping)