Сетевые ф-и пхп, как сделать заголовок запроса?

[Satell]

вот есть програмка на перле, как её переписать на пхп?

use LWP::UserAgent;
use HTTP::Request::Common;
$url=$ARGV[0];
$ua=LWP::UserAgent->new or die;
$ua->agent("Mozilla/4.0 (compatible; MSIE 5.0; Windows 98; DigExt)");
$ua->timeout(30);
$h1 = new HTTP::Headers
Accept => \'application/vnd.ms-excel, application/msword, image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/x-comet, */*\',
User_Agent => \'Mozilla/4.0 (compatible; MSIE 5.0; Windows 98; DigExt)\',
Referer => $ARGV[1];
$req1 = new HTTP::Request (\'GET\', $url, $h1);
$res=$ua->request($req1);

$page=$res->content;
print $page;