#!/usr/bin/perl

use warnings;
use strict;

use CGI;

my $redirect_url = "http://example.org/";
my $cgi = CGI->new();

print $cgi->redirect(
  -uri    => $redirect_url,
  -nph    => 1,
  -status => '301 Moved Permanently',
);