sub ldapsearch {
		my $mac = shift;
		print "$mac\n";
		my $searchobj = $connection->search(
										base	=> 'o=ldap',
										scope	=> 'sub',
										filter	=> "cn=$mac",
										attrs	=> @attrs, #note I also tried \@attrs
									);
		$searchobj->code && die $searchobj->error;

		while ( my $entry = $searchobj->shift_entry) {
			print $entry->dn, "\n";
			print $entry->get_value('plan');
			print $entry->get_value('ipaddress');
			print $entry->get_value('username');
		}
}