use strict;
use DBI ;
#use DBD::ODBC;

my $sql = qq {
select DISTINCT account from accountsize 
};

my $dbh = DBI->connect("dbi:ODBC:LocalServer") or die;

my $sth = $dbh->prepare("select account from accountsize") or die "error" . $dbh->errstr;

$sth->execute( ) or die;

my @row;

while (@row = sth->fetchrow_array)
{
print "$row[0]\n";
}

$sth->finish();

$dbh->disconnect();