my $sip=  192.35.75.55;
#print "IP ADDRESS:  $QueryIn ";
 # my $QueryIn = <STDIN>;
my $QueryIn = $sip;
chomp $QueryIn;

##</code><code>##

my &sip = '192.35.75.55';