while (1){
  @the_html=init_html();
  @data=parse_data(@the_html);
  if (@data) {
    write_data(filter_data(@data));
    mail_data(filter_data(@data));
  } else {
    write_data("\tNo connection or data, so","\tsleeping until next fetch.");
  }
  sleep(300);
}