my @file;
my $count;
open (FILE,"ReviewUpdatesMarch2007.txt");
@file = <FILE>;
close FILE;
foreach my $item (@file)
{
  my($owner,$new_date,$url) = split(/\t/,$item);
  print $url;
  my $slurp = read_file("$url");
}