#!/usr/bin/perl

use DBI;

my $dbh = DBI->connect("dbi:mysql:test:host=plover.com", '', '',
                      {RaiseError => 1});

my $sth = $dbh->prepare("select ? + 1 ");

my $n = 10;
$sth->bind_param(1, $n);

for $n (1..10) {
  $sth->execute;
  while (my @z = $sth->fetchrow_array) {
    print "$_ => @z\n";
  }
}