Select Code to Download

package LoadProperties;
use SharedVariable qw (%ARTICLE)

$fabricant = $lp->loadFabricantProperties($ARTICLE{'marque'},'',$value
+);

package SharedVariable;

...
    @SharedVariable::EXPORT_OK   =  qw ($session_dir $page $action $di
+r $dirLang $dirError $imgdir $session_id $can_do_gzip $current_ip $la
+ng $LANG %ARTICLE %SESSION %SERVER %USER $CGISESSID %LABEL %ERROR %VA
+LUE $COMMANDID %COMMAND %DATE %PAYPALL $INDEX %LINK  $query $session 
+$host $t0  $client);  
  }
1;

sub getLastEnchereurDetail {
    local our $string;local our $article = $query->param("article");
...
    return $string;
}