Bonjur j'ai un probleme avec dbi je n'arrive pas a exécuté la requete

Code : Sélectionner tout - Visualiser dans une fenêtre à part
SELECT * FROM doc
voici mon code perl

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
#!/usr/bin/perl
use DBI;
 
 
my $DSN = 'driver={SQL Server};Server=*******; database=test; uid=sa;pwd=********;';
my $dbh = DBI->connect("dbi:ODBC:$DSN", { odbc_cursortype => DBI::SQL_CURSOR_DYNAMIC }) or die "$DBI::errstr\n";
 
 
 
 
  my $sth = $dbh->prepare('SELECT * FROM doc');
      $sth->execute;
 
 
  print "$sth\n";
Quand j'execute mon code j'obtient :
DBI::st=HASH(0x18302cc)
a la place de la chaine queje voudrais voir grace a
print "$sth\n";