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

my $file = "srv_html.txt";
my $url = 'http://usr:pwd\@my-home-page=pcon';
my $content = getstore($url,$file);

open(HTML_S2,"<$file") or die $!;
while (my $strings = <HTML_S2>)
{
   if ($strings =~ /href.*workstationid\&value\=([^"]+)".*href.*ipc2\&value\=([0-9\.\:]+)"/i)
   {
      my ($w,$i) = ($1,$2);
      #print "$w => $i\n";
      #print "$i\n";
      my @srv_list = $i;
      &cli(@srv_list);
   }
}
close HTML_S2;

sub cli{
   my (@srv_list) = @_;
   for my $list(@srv_list){
       my $list = "http://pixx:z0urself\@cute-ap3-fe.ar4.fra.dlh.de:11699/monitor?view=ipc2&value=@srv_list";   
       my $file = './home/'.$list.'.txt';
       open(my $fh,">$file") or die $!;
       print $fh $list,"\n";
       #print "$list\n";
       close $fh;
   }
}