#!/path/to/perl -w
use strict;
use URI::Escape;

my $url = "http://www.yahoo.com";
print "Content-type: text/plain\n\naddress=$url";