Socketübergabe an ein Unterprog aus einem Modul

[Certus]

Hi,

ist es möglich an ein Unterprogramm in einem Perl-Modul einen im Hauptprogramm erzeugten Socket zu übergeben?
Bzw. ihn in einer "globalen" Variablen (habe was von "use vars" gelesen ???) speichern.
Hintergrund:
Verschiedene CGI‚s die mit einer JAVA-Schnittstelle/DB via Sockets zusammenarbeiten sollen. Zu Beginn bekomme ich einen Port und den muß ich immer verwenden. Packe ich alles ins Modul werden aufeinander folgende Abfragen irgendwie verschluckt :-(((
Deshalb erzuege ich in jedem CGI einen Socket und führe die Abfrage in einem eigenen Unterprogramm aus.

Thanx
Jörg