#!/usr/bin/perl 
use strict; 
use IO::Socket;

my $s = IO::Socket::INET->new(
  LocalPort => 80,
  Listen => 5,
  Reuse => 1,
  MultiHomed => 1) or die;

while (my $c = $s->accept) {
  print $c "HTTP/1.0 302 Over there\n";
  print $c "Location: http://xxx.xxxxx.xxx\n\n";
}