Perl codes and news

use IO::Socket;

# Envoi de message
$server->send($message_a_envoyer, $flags)
    or die "Erreur: 

###########  Scalaire   #################
# Les Scalaires peuvent conteneir  les
# chaîne de caract

#!usr/bin/perl

$rep="c:/test";

# Renommer le fichier
rename($rep,"c:/test2");

# Supprimer le fi

# définition d'une liste de mot avec le mot clé 'qw'
@tab = qw( janvier février mars avril mai juin

#!/usr/local/bin/perl

$a="bienvenu sur perl.mesexemples.com";
$b="BIENVENU SUR PERL.MESEXEMPLES.CO

use Date::Calc qw(Delta_Days);

@date1 = (2011, 1, 30);        # 30 janvier 2011
@date2  = (1985, 3

#!C:/perl/bin

for (1..10)
{
 print "$_ pas!n";
}

# Retourner un tableau comme valeur de retour
# de la fonction 'tab_valeurs'
sub tab_valeurs
{
    

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

package personne;
use strict;

sub Personne {
    my $self = { };
    bles