#!/usr/bin/perl -w
use strict;
print 'Status: 302 Moved', "\r\n", 'Location: http://forum.skeys.org.ru', "\r\n\r\n";