#!/usr/bin/perl -w
 
use strict;
use CGI;
use Data::Dumper;
use ZM::Template;
 
my $q = new CGI;

def redirect(request):        
    next = request.POST.get('next')
    if next:
        return urllib.unquote(next)
    return request.META.get('HTTP_REFERER', '/')
 
def logout(request):    
    log_out(request)
    return HttpResponseRedirect(redirect(request))

<?php
  function foo() {
    echo "Hello World!\\n";
  }
?>

 
bash-3.2$ whois ya.ru
[Querying whois.ripn.net]
[whois.ripn.net]
% By submitting a query to RIPN's Whois Service
% you agree to abide by the following terms of use:
% http://www.ripn.net/about/servpol.html#3.2 (in Russian)
% http://www.ripn.net/about/en/servpol.html#3.2 (in English).
 
% Sorry. Server busy.