Basically, you're missing the fetch from the database.
You need a statement similar to this:

my @stuff = $sth->fetch_row();

foreach my $thing (@stuff)
{
print "$thing\n";
}

...in between the prepare and disconnect statements.
Oh, and of course I highly suggest at least reading the man page for the DBI module on cpan.org or what have ya.

GL! :)