Avec mod_perl

package Apache::ROOT::perl::conference::compteur_2epl;
  use Apache qw(exit);
  sub handler {
    use strict;
    
    print "Content-type: text/plain\n\n";
    
    my $counter = 0;
    
    for (1..5) {
      $counter++;
      print $counter;
    }
  }