#use strict;
# source code that i modified is from http://lwp.interglacial.com/ch02_03.htm
# 
use warnings;
use LWP::Simple;


open(DEST, ">godaddydata.html") || die "$!";
  $j=1;
  $maxj=1000;
  while ($j <= $maxj){
  
my $url  = 'https://www.tdnam.com/trpHome.aspx?t=3';
my $file = 'booktv.html';
my $status = getstore($url, $file);
die "Error $status on $url" unless is_success($status);

my $txtfile='booktv.html';

open(SOURCE, "$txtfile") || die "Can't open: $!";
 @filearray=<SOURCE>; 
close(SOURCE);
print " last valid index of file = $#filearray \n";

#663 to 1133 1237



      $i = 776;
      while ($i <= 1239 ) {
      print DEST "$filearray[$i] \n";
      $i=$i+1;

      }
      sleep(60*30);
  $j=$j+1;
  print "$j of $maxj done \n" ;
  }
close(DEST);

#############################################################################