#!/usr/bin/perl
#
# msie-detect.pl v0.0.3 - Detects MSIE (Microsoft Internet Explorer) 
# agents, and displays an error message
# Copyright (C) 2004, 2010 Stian Skjæveland
#
# This program is free software; you can redistribute it and/or
# modify it under the same terms as Perl itself.
#

use CGI qw(:standard);
use strict;

print header;

my $browser=user_agent;

if ($browser=~m/MSIE/) {
  print "WARNING! You are using MICROSOFT INTERNET EXPLORER which is an INSECURE, UNSTABLE, CLOSED SOURCE and SLOW browser. This means that you're using MICROSOFT WINDOWS which is an INSECURE, UNSTABLE, CLOSED SOURCE and SLOW operating system.\n";
}