#!/usr/bin/perl use LWP::Simple; print "Content-type: text/html\n\n"; @content=get('http://some_url'); foreach$line(@content) { $line=~s/<HEAD>/<HEAD>\n<BASE target=\"_top\">\n/; print $line; }