my Perl is rusted...

code/id2h.pl

@@ -0,0 +1,5 @@
+#!/usr/bin/perl -w
+use strict;
+use code::id2h;
+
+TraiterLigne("ID un texte quelconque.");

code/id2h.pm

@@ -0,0 +1,8 @@
+#!/usr/bin/perl -w
+use strict;
+sub TraiterLigne($)
+{
+my $in = shift;
+print "input: $in\n";
+}
+1;