#!/usr/bin/perl

use warnings;
use strict;
use DBI;

my $db_user = 'pgsql';
my $db_passwd = 'pAsSwOrD';
my $db_name = 'users';

my $dbh = DBI->connect ("DBI:Pg:dbname=$db_name",$db_user,$db_passwd, {'RaiseError' => 1});

my $sth = $dbh->prepare("SELECT uid, login FROM accounts");
$sth->execute();

my %user;

while ( my ($name, undef, $uid) = getpwent() ){
	$user{$uid} = $name;
}

while (my @data = $sth->fetchrow_array()) {
	my $uid = $data[0];
            print "uid $uid, login $data[1] conflict whith system account ",$user{$uid},"\n"
	    	if defined $user{$uid};
}

$sth->finish;

$dbh->disconnect();