while (<FILEHANDLE>)
{
my $ServerName = <FILEHANDLE>;

##</code><code>##

while (my $ServerName=<FILEHANDLE>)
{