#!/usr/bin/perl -w
use strict;

while (<>) {
    chomp;
    if (/^([^\s]+)[\s]+(.+)$/) {
        print STDERR "$_\n";
        my $url = $1; my $name = $2;
        `./indexit.pl . $url '$name'`;
        print STDERR "\n";
    }
}
