use LWP::UserAgent;
 
	$ua = new LWP::UserAgent;
	$ua->agent("OpticDB LinkCheck/0.1");
 
	&connect_to_db;
 
	my $clock_start = time; # start timer
 
	$sth = $dbh->prepare("SELECT * FROM $DB_MYSQL_NAME");
	$sth->execute ();
 
	my $count = 0;
 
	while (my $ref = $sth->fetchrow_hashref ())
	{
 
		my $req = new HTTP::Request GET => $ref->{'url_en'};
		my $res = $ua->request($req);
 
			$res_id   = $ref->{id};
			$res_code = $res->code;
			$res_msg  = $res->message;
 
			unless ($res_code eq "200") {
		 	
				$count ++;
 
				$tmpl_show_record .=  qq|
 
				.. html to show erroneous records goes here ...
				|;
			}
	}
 
	$num_dead = $count;
 
	if ($count == 0) {
		&error_html("No dead links found!");
		exit;
	}
 
	$sth->finish();
 
	my $clock_finish = time - $clock_start; 
	$time_taken = sprintf ("%.2f", $clock_finish); 
 
	$dbh->disconnect;