use strict;
use warnings;
use LWP::UserAgent;

my $ua = new LWP::UserAgent;
$ua->agent("Mozilla/4.0 (compatible; MSIE 5.0; Mac_PowerPC)");
my $req = new HTTP::Request GET => 'http://groups.yahoo.com/group/somegroup/message/1243';

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

if ($res->is_success) {
  my $pagecontent = $res->content;
} else {
 print "Bad luck this time\n";
}