猿輔導是一款有利于學生學習的輔助工具，上面有很多利于學習的資源。今天我就分享一個簡單的猿輔導采集程序，內容短小精干，非常適合新手學習，一起來看看吧。

```perl

#!/usr/bin/perl

use strict;

use warnings;

use HTTP::Request;

use HTTP::Response;

use HTTP::Cookies;

# 創(chuàng)建HTTP::Request對象

my $req = HTTP::Request->new(GET => "https://www.yuanfudao.com/video.mp4");

# 創(chuàng)建HTTP::Response對象

my $res = $ua->request($req);

# 打印響應的狀態(tài)碼和頭部信息

print "Status: " . $res->status_line . "\n";

print "Headers: " . join("\n", map { "$_:" . $res->header($_) } keys %{$res->header}) . "\n";

# 打印響應的主體內容

print "Body: " . $res->decoded_content;

```

解釋：

1. 首先，我們使用`use strict;`和`use warnings;`來啟用嚴格的代碼語法檢查和警告信息。

2. 然后，我們使用`use HTTP::Request;`和`use HTTP::Response;`來導入HTTP::Request和HTTP::Response模塊。

3. 接下來，我們創(chuàng)建一個`HTTP::Request`對象，使用GET方法請求文件。

4. 然后，我們使用`$ua->request($req)`方法來發(fā)送請求，并獲取響應。

5. 我們打印出響應的狀態(tài)碼和頭部信息，以及響應的主體內容。狀態(tài)碼是響應的狀態(tài)，頭部信息是響應的元數(shù)據(jù)，主體內容是響應的實際數(shù)據(jù)。

注意：在實際使用中，可能需要根據(jù)服務器的實際情況來調整代理服務器的設置。例如，可能需要設置用戶名和密碼，或者使用HTTPS協(xié)議。此外，可能需要處理可能出現(xiàn)的錯誤和異常。