use HTML::LinkExtractor;
use LWP::Simple; #     use LWP::Simple qw( get );
use Data::Dumper;
use HTML::Strip;

my $base = 'http://www.pillig.de/lexikon/index.aspx';
my $html = get($base);
my $LX = new HTML::LinkExtractor();
my $hs = HTML::Strip->new();

$LX->parse(\$html);

for my $Link( @{ $LX->links } ) {
## new modules are linked  by /author/NAME/Dist
	if( $$Link{href}=~ m/lexikon/ ) {
		my $clean_text = $hs->parse( $$Link{_TEXT} );
		$hs->eof; 
		#print Dumper $Link;
		#print $$Link{_TEXT}."\n";
		#my $file='I:\Working 2013\www.dowsery.com\tools\Framework\Prototyp\lexikon\lexi.cafe.txt';
		#my $file="I:\\Working 2013\\www\.dowsery\.com\\tools\\Framework\\Prototyp\\lexikon\\lexi.cafe.txt";
		my $file="I:\\lexi.cafe.txt";
		open(W,"+>>lexi.phil.txt") or die "$!";
		binmode(W, ":utf8");
		print W "$clean_text\n";
		close W;
	}
}
