my $path = "...../htdocs/perlsoft/projekte/gb2/images/main/perlsoft.gif";
my $docroot = $ENV{'DOCUMENT_ROOT'};
$path =~ s!^$docroot!!;
my $url = "http://".$ENV{'SERVER_NAME'}.$path;
print $url;