use DBI;

# Mit dem Excel Sheet "verbinden" ...
$hDb = DBI->connect("DBI:Excel:file=test.xls") 
  or die "Cannot connect: " . $DBI::errstr;

# Tabelle 1 = Name des interessanten Excel Sheets
# A, B, C, ... = Namen der Spalten: Ergeben sich aus den Einträgen aus der ersten Excel Zeile  

# Befehl ausführen
$hSt = $hDb->prepare("select * from Tabelle1 order by A, B, C")
  or die "Cannot prepare: " . $hDb->errstr();
$hSt->execute();

# Schleife über die Ergebnisse
while (@row = $hSt->fetchrow_array){
  print "$row[0] : $row[1] : $row[2]\n";
}

# Beenden
$hSt->finish();
$hDb->disconnect();