Salut,

voici un exemple

lami20j@debian:~/trash$ cat MonPackage.pm
package MonPackage;
use strict;
require Exporter;

our @ISA = qw/Exporter/;

our @EXPORT = qw/min2maj maj2min char2ascii ascii2char/;

sub min2maj{
  return uc(shift);
}

sub maj2min{
  return lc(shift);
}

sub char2ascii{
  return unpack("C*",shift);
}

sub ascii2char{
  return pack("C*",@_);
}

1;
lami20j@debian:~/trash$ cat ccm.pl
#!/usr/bin/perl
#
use warnings;use strict;
use lib "/home/lami20j/trash";

use MonPackage;
my $chaine = "comment faire un module en perl?";

print min2maj($chaine),"\n";
print maj2min(min2maj($chaine)),"\n";
print char2ascii($chaine),"\n";
print ascii2char(char2ascii($chaine)),"\n";

__END__
lami20j@debian:~/trash$ perl ccm.pl
COMMENT FAIRE UN MODULE EN PERL?
comment faire un module en perl?
9911110910910111011632102971051141013211711032109111100117108101321011103211210111410863
comment faire un module en perl?