Select Code to Download

#!/usr/bin/perl -wT
use strict;
...
read (STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
print "Content-type: text/plain\n\n";
print $buffer;

#!/usr/bin/perl

...
# now we can send a GET rquest somewhere
$CGI->redirect('http://my.server.com/script.pl?' . $query);