#!/usr/bin/perl

use CGI;

my $dest_site = 'http://edi-ko-si';

print $query->redirect(
-uri, $dest_site,
-nph, 1,
-status, 301
);

__END__

kudeto 'status' moje da e:

301 Moved Permanently
302 Found
303 See Other

#~
$_->[/^(?>(.)?(.)+.*)(?!\1)(??{print(($1..$2)[9,0,15,7])})/]
#~