#!/usr/bin/perl
package essai;
print "Bonjour tout le monde !\n";
1;

#!/usr/bin/perl -w
use strict;
print "Au revoir !\n";
use essai;

#!/usr/bin/perl -w
use strict;
print "Au revoir !\n";
require essai;

			mon_module.pm
#!/usr/bin/perl -w
use strict;
use Carp;
package mon_module;

sub longueur{
  my ($seq) =@_;	#récupération de la séquence à traiter
  my $lg = length($seq);
  print "c'est une séquence de longueur $lg\n";
}
1;			#obligatoire dans les modules en fin de programme.
########################################################
			script_principal.pl
#!/usr/bin/perl -w
use strict;
use Carp;
use lib './repertoire_module';	#mon module se trouve dans le répertoire "repertoire_module"
use mon_module;			=>utilisation du module "mon_module"

my $seq = "ATCGTGC"; 
&longueur($seq);		#utilise la fonction &longueur de mon module
				=>c'est une séquence de longueur 7
print "c'est ok!";		=>c'est ok!

#!/usr/bin/perl

use File::Basename;
#Pragma toujours utile pour écrire du code Perl correct
use strict;

my($file) = /home/gldavid/djibril.secrets;
my($basename) = basename $file;
print "$basename\n";