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

my $in = "url";
my $out;

print "Content-type: text/html\n\n";

my @newin = split (/\s+/, $in);
print "<br>@newin<br>";
my @out = split (/\s+/, $out);
print "<br>@out<br>";
@out = push (@out, @newin);
print "<br>@out<br>";

##</code><code>##

<br>url<br><br><br><br>1<br>

##</code><code>##

<br>url<br><br><br><br>url<br>