#!/usr/bin/perl -w
use CGI qw/:standard/;


my $q = new CGI;

print $q->redirect(
	-status=>301,
	-URL=>'http://192.168.1.3'
);