#!/usr/bin/perl -w

use CGI::Carp qw(fatalsToBrowser);
use strict;
use lib 'module';
use CGI;
use WebDB;
use Globals;                  

my $C = new CGI;

my $dl       = $C->param('dl');

my $ref_link = $ENV{HTTP_REFERER};
my $url = $Glob::path."downloads/".$dl;

print "Location: $url\n\n";  #<- Da hört er dann auf :( 
print "Location: $ref_link\n\n";
exit;