#!/usr/bin/perl use strict; use warnings; use CGI; binmode(STDOUT,":utf8"); #it doesnt print right with it here or not my $t=qq(T.png); my $req = CGI->new(); use LWP::Simple; my $content= get($req->param('go')); $content=~s|
.*?
||g; $content=~s|
|msg; $content=~s|"(/tmpwiki/phase3)|"http://server.com$1|g; $content=~s|.*|BTT|msg; $content=~s|(\param("f")){ print "Content-type: application/x-download\nContent-Disposition:attachment;filename=\"Business Requirement.doc\"\n\n".$content; }else{print $req->header().$content;}