$status = $sth->execute;
print "Status = $status\n"; # the RC is always -1  weather the execute worked or not

my $col1;
$sth->bind_col(1,\$col1);
while ($sth->fetch || die "Cant fetch data - $DBI::errstr\n") { 
	print "ID: $col1\n";
}