use strict;
use warnings;
use LWP::Simple;
use HTML::Parser;

my $file = "site1.txt";
my $url = 'http://user:pwd@my-home-page.de';
my $content = getstore($url,$file);

my @infos;
my $p = HTML::Parser->new();
$p->handler(start => \&start_handler,"tagname,attr,self");
$p->parse_file('$file');

sub start_handler{
  return if(shift ne 'td');
  my ($client) = shift->{CLIENTS}=~ /\s+(.+)/;
  print "$client\n";
}