#!/usr/bin/perl
use strict;
use warnings;

my $page;

# Wie heisst der Browser?
my $browser = $ENV{HTTP_USER_AGENT};

# gruselige Perl-Variante fuer eine Art von Case-Anweisung
   ($browser =~ /Mac/) && ($page = 'www.apple.com/mac/') 
|| ($browser =~ /Win|MSIE|WebTV/) && ($page = 'www.microsoft.com') 
|| ($browser =~ /Linux/) && ($page = 'www.linux.org')
|| ($page = 'www.netzmafia.de/404.html');

# und umleiten
print "Location: http://$page\n\n";