open (FILEHANDLE, ">c:/test.txt")
    or croak ("Impossible d'ouvrir le fichier");

# Modifier le

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

package Personne;  
sub new {
    my $self = { };
    bless($self);

    #

#!/usr/local/bin/perl -w
package Personne ;
################# Classe ##############
# En perl, une c

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


use Class::Struct;          # Charger le module des structures

struct Pe

 #!/usr/local/bin/perl
 eval
 {
while(<>) {
    print "Tapez quelque chose...";
    alarm(5);
}
  }

use Math::Complex;

my $x = Math::Complex->new(3,5);      #Nombre complexe
my $y = Math::Complex-

#!/usr/bin/perl

use AnyDBM_File;

my $fichier_BD="c:/BD/Etudiant.dbm";
unlink $FILENAME
    or di

#!c:/perl/bin

use DBI;
use strict;
# Ouvrir une connexion sur la base de données 'Ventes'
my $db_co

#!/perl/bin
use DBI;
use strict;

# Ouvrir une connexion sur la base de données Oracle 'Ventes'
my $

#!/perl/bin

use DBI;
use strict;

# Ouvrir une connexion sur la base de données MySQL 'Ventes'
my $