$sql = "select * from scanner.vulnerabilities";
	$sth = $dbh->prepare($sql);
	$sth->execute
		or die "SQL Error: $DBI::errstr\n";	
		
		my %ref;
		while (my $row = $sth ->fetchrow_hashref() ){
			$ref{ $row ->{'port'}} = $row ->{'Name'}
		}
		
		foreach $key(keys %ref)
			{foreach $port (@{$ref{$key}{'port'}})
			{if($khost=~/^$port/)
			{chop($port) if ($port =~/\.$/);
			print "\n[!] Port: [$start_port] Service: $key";
			print O "[!] Port: [$start_port] Service: $key\n";
			$start_port++}}}}}