or download this
my $db_name = $DATABASE2;
my $suffix = 'NO HTTP_REFERRER';
...
"<A HREF=\"http://$ENV{'HTTP_HOST'}$ENV{'REQUEST_URI'}\">htt
+p://$ENV{'HTTP_HOST'}$ENV{'REQUEST_URI'}</a> - $suffix\n";
close($db) or die "Cannot close database '$db_name': $!";