Select Code to Download

$status = $sth->execute;
print "Status = $status\n"; # the RC is always -1  weather the execute
+ worked or not
...
while ($sth->fetch || die "Cant fetch data - $DBI::errstr\n") { 
    print "ID: $col1\n";
}