sub runit {
# first filter out the relevant telinfo:
open TEL, "lynx -dump zoekopnummer.ath.cx/index.php?nummer=$nummer|";
open (LOG, ">$log");
while(<TEL>){
print LOG $_;
}