Bonjour

J'ai un script, referer.cgi qui récupère le referer du client. Le code se présente comme:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
#!/usr/bin/perl -w 
 
# Define variable
my $origin="";
 
# visitor's origin
if($ENV{'HTTP_REFERER'} eq "")
{
     $origin="Connection directe";
} 
else
{
     $origin=$ENV{'HTTP_REFERER'};
}
return $origin;
1;
Je désire récupérer la valeur dans un autre fichier:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
#!/usr/bin/perl -w
require "referer.cgi";
Comment puis-je récupérer le contenu de la variable $origin ?

Un require ne suffit pas autrement, je vais obtenir un message du genre, Global symbol "$origin" requires explicit package name.

Merci d'avance