Network Perl

  1. Home
  2. Perl
  3. Network
  4. Retrieving a Web Page with get()
#!/usr/bin/perl -w
use LWP::Simple;
use strict;
my $webpage = get("http://www.demo.org/");
if (($webpage) && (grep {/Steve/} $webpage)) {
    print "I found the text\n";
}