use strict;
use warnings;

use Benchmark qw (cmpthese);
use DBD::DB2;
use DBD::DB2::Constants;

my $dbh = DBI->connect("DBI:DB2:viper", "db2inst1", "foobar");
defined($dbh) or die "Unable to connect to database:" . $DBI::errstr;

sub proc_bind {
  my $stmt = "CALL PROC_GET_DATA(?)";
  my $sth = $dbh->prepare($stmt) or die "prepare failed";
  $sth->bind_param(1, "abeamish");
  $sth->execute() or die "Execute failed:" . $DBI::errstr;
}

sub proc_no_bind {
  my $stmt = "CALL PROC_GET_DATA(?)";
  my $sth = $dbh->prepare($stmt) or die "prepare failed";
  $sth->execute("abeamish") or die "Execute failed:" . $DBI::errstr;
}

cmpthese(
  -1,
  {
    'proc_bind'    => sub { proc_bind },
    'proc_no_bind' => sub { proc_no_bind },
  }
);

__END__