#! /usr/bin/perl -w

use strict;
use CGI qw/:standard/;
use CGI::Carp qw(fatalsToBrowser);
use utf8;

my $ARTNR = param("artikel");

my $red = 'http://www.orlich.at/orlich/kanzleihaupt.php?thema=rechtssammlung';
$ARTNR && ($red .= '&umenue=rs_artikel&artnr='.$ARTNR);

print redirect($red);