open IPNFO, ">$rootdir/memb/precarious/$dbfile_ip_$num" or (print "no ip nfo: $!<br>" and exit);
sysseek IPNFO, $startchar, 0;
syswrite (IPNFO, $badboyz) or print "could not write: $!";
close IPNFO;