如何在Perl中编写简单的HTTP代理？

I don't want to use the HTTP::Proxy package because I want to dump out a couple requests. My one liner looks like this, but breaks on trying to pass the header in:I don't want to use the HTTP::Proxy package bec