#!/usr/bin/perl

#Runs html_strip on the concat'ed input and prints the results.

use strict;

my $dir;

BEGIN
{
    use FindBin;
    use lib "$FindBin::Bin/../lib";

    $dir = $FindBin::Bin;
}

use MediaWords::Crawler::Extractor;

use Storable;

sub main
{

    my $html;
    while (<>)
    {
       $html .= $_;
    }

    print (MediaWords::Util::HTML::html_strip( $html ) );


    exit;

}

main();

Add script that runs html_strip on the concat'ed input and prints the results.
Add script that runs html_strip on the concat'ed input and prints the results.

