试图用perl获取网页的源代码

我正在尝试使用Perl“get”函数获取网页的html源代码。我在5个月前编写了代码，它工作得很好，但是昨天我做了一个小的编辑，但是在那之后，无论我怎么努力，它都无法工作。 这是我试过的代码

#!usr/bin/perl
use strict;
use warnings;
use LWP::Simple;
my $link = 'www.google.com';
my $sou = get($link) or die "cannot retrieve code\n";
print $sou;

代码工作正常，但无法检索源代码，而是显示

cannot retrieve code

---

请帮我把这个弄对

好的，谢谢，但实际上我正在尝试获取本地服务器页面的源代码。当我在我的页面中键入“gold/isos/preFCS5.4/LATESTGOOD/”或“我可以看到页面，但它不能与perl一起工作”时，我就得到了页面“。请帮助我获取此信息。我的意思是，当我在位置栏中键入gold/isos/preFCS5.4/LATESTGOOD/或gold.conf.com/isos/preFCS5.4/LATESTGOOD/时，我可以在浏览器中看到内容。您的浏览器将在您键入的字符串前默默地加上“http://”。LWP：：Simple不能这样做，所以您需要显式地这样做。好的，谢谢，但实际上我正在尝试获取本地服务器页面的源代码。当我在我的页面中键入“gold/isos/preFCS5.4/LATESTGOOD/”或“我可以看到页面，但它不能与perl“get”一起使用”时，我就得到了页面。请帮助我获取此信息。

my $link = 'http://www.google.com';