sub gd_preconfig { my ($self) = @_; print "opening config file\n"; open(CONFIG, ") { $sleeptime = $1 if /^sleeptime\s+(\d+)/; } close(CONFIG); print "done reading config, sleeptime is now $sleeptime\n"; return (); }