#!/usr/bin/perl -w
use strict;
use DBI;

my $dbh = connect_db();
print ">>$dbh<<\n";
query($dbh);

sub connect_db {
    my $dbh = DBI->connect('DBI:mysql:dbname', 'user', 'pass') ||
        die "can't open DB: $DBI::errstr\n";
    return $dbh;
}

sub query {
    my $handle = shift;
    my $sth = $dbh->prepare('Select id FROM page_data');
    my $id;
    $sth->execute();
    $sth->bind_columns(\$id);
    while ($sth->fetch()) {
        print "\tFound id $id.\n";
    }
    $sth->finish();
}