Something

#!/usr/bin/perl 
use lib 'BSD/';
use warnings;
use strict;
use BSD::BSDoogle;


if(openindex(INDEX_FILE => 'INDEX-6'))
{

}
else
{
print 'failed to open';		
}
my ($ports,$descriptions,$locations) =	    search(TITLE => 'BSD',
	    CASE_SENSITIVE => 'no');


my (@ports) = @{$ports};
my (@descriptions) = @{$descriptions};
my (@locations) = @{$locations};

print @ports;