## #!/usr/bin/perl -w use CGI qw/:standard/; use strict; print "Content-type:text/html\n\n"; my $picid = param('id'); my $url = 'http://www.nextpage.com'; my $newurl = "$url/$picid";