fonction perl

Quelque chose de ce style ?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
#!/usr/bin/perl -w
 
use strict;
use CGI;
 
my $q = new CGI;
my $t1 = time;
print $q->header;
print $q->start_html('Hello world');
print "<div align=\"center\">"; 
print $q->h1("Hello World !");
print "</div>";
print "<p>";
my $t2 = time;
my $t=$t2-$t1;
print "Temps de chargement de la page : $t s</p>";

@++