use CGI; # CGI verwenden.
my $q = CGI::->new; # CGI-Objekt erstellen.
print "Referer ist: ", $q->param('referer'); # Referer-Variable ausgeben.