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

my $agent    = LWP::UserAgent->new();
my $site     = 'http://www.perl.com';
my $response = $agent->get( $site );

my $content  = $response->content();

if( $content =~ m/Chromosome/i ) {
  open( FH, ">>news.html" ) || die "Error : $!\n";
  print FH $content;

  close( FH ) || die "Error : $!\n";
}

else {
  print "Nothing!\n";
}