open(IPFILE,"<iplist.txt"); # open readonly
    || die "Could not open iplist.txt:$! \n";

##</code><code>##

@openip = split('.',$stip); # split(/\./,$stip);