sub cli{
   my (@srv_list) = @_;
   for my $list(@srv_list){
       my $list = "http://usr:pwd\@my-home-page=@srv_list";   
       print "$list\n";
   }
}