perl实例-get函数检索web页面

#!/usr/bin/perl -w

use LWP::Simple;
use strict;

my $webpage = get("http://www.jb200.com/");

if (($webpage) && (grep {/Steve/} $webpage)) {
    print "找到了对应的文本内容n";
}