$dbi_dsn = "dbi:ODBC:<Name of Database>";
  #############################
  # connect to database
  $dbh = DBI->connect($dbi_dsn) or die "Can't connect to $dbi_dsn: $DBI::errstr";

   $sth = $dbh->prepare(“Call you query here”);
   $sth->execute();
   while ($hash_ref = $sth->fetchrow_hashref) {
    $field_1_value = $hash_ref->{Field1};
    ...
    $field_4_value = $hash_ref->{Field4};
   }