use strict;
    use warnings;
    use DBI qw(:sql_types);
    
    my $dbh = DBI->connect("DBI:ODBC:sample_db", "user", "pass");
    my $query = $dbh->prepare("SELECT TOP 1 ID FROM TABLE");
    
    while (1)
    {
    	$query->execute();
    	while (my $row = $query->fetchrow_hashref() ){
    		print  $row->{EV_EQ_ID} . "\n";
    	}
    	$query->finish();
    }