Demonstration de match

Contenu de la script s6.1.cgi

#!/usr/local/bin/perl

print "Content-type: text/html\n\n";

$browser = $ENV{'HTTP_USER_AGENT'};

if ($browser =~ m/Mozilla/)
{
   print "I see you are using Netscape.  Good Choice\n"; 
}  else 
{
    print "I recommend that you switch to Netscape\n";
}