Необходимо доработать перл скрипт

Есть .cgi скрипт:

#!/usr/bin/perl -w

use strict;

use lib './files';

use cgi;

my %P; GetParams( \%P );

#foreach (keys %P){ print "$_=$P{$_}\n" }

my $url = $P{url} || (split /\n/, $P{default})[-1] || '../meta10.html';

print "Location: $url\n\n";

в мета10.html

нужно объединить скрипт, чтобы это все работало из одного cgi скрипта