Untitled

$filename = "index.dumped.html";

open( FILE, "< $filename" ) or die "Can't open $filename : $!";

my $sth = $dbh->prepare(qq{

  insert into indexed (url, webtext) values ('$_[0]', ?)
});

while (defined(my $pushing = <FILE>  )) {
push @complete, $pushing;
}


$sth->execute("@complete");
undef @complete;

close FILE;