1  my @file;
  2  my $count;
  3  open (FILE,"ReviewUpdatesMarch2007.txt");
  4  @file = <FILE>;
  5  close FILE;
  6  foreach my $item (@file)
  7  {
  8    my($owner,$new_date,$url) = split(/\t/,$item);
  9    print $url;
 10    my $slurp = read_file("$url");
 11  }