#!/usr/bin/perl

use LWP;
use strict;
use warnings;

my $ua = new LWP::UserAgent;

print "\n\nUsing LWP to grap http://groups.yahoo.com.\n".
      "Printing first 500 characters.\n";
my $r = $ua->get("http://groups.yahoo.com");
${$r->content_ref} =~ s/ /./g;
${$r->content_ref} =~ s/\cJ/<<LF>>\cJ/g;
print substr($r->content,0,500), "\n";


print "\n\nUsing previously-saved Mozilla groups.yahoo.com source.\n".
      "Print first 500 characters.\n";
open FH, "groups.yahoo.com.html";
undef $/;
my $s = <FH>;
$s =~ s/ /./g;
$s =~ s/\cJ/<<LF>>\cJ/g;
print substr($s,0,500), "\n";