$ perl
use strict;
use warnings;
use DBI;
use DBD::DB2;
use Data::Dumper;

my $dbh = DBI->connect ('DBI:DB2:sample', 'db2inst1', '.....')
  or die "connect failed";
my $sth = $dbh->prepare("select * from dept")
  or die "prepare failed";
my $rv = $sth->execute();
if ($rv) {
  while(my $hr = $sth->fetchrow_hashref()) {
     print Dumper($hr);
  }
}
$sth->finish() or die "finish failed";
$dbh->disconnect()  or die "disconnect failed";

__END__
$VAR1 = {
          'LOCATION' => undef,
          'DEPTNO' => 'A00',
          'MGRNO' => '000010',
          'ADMRDEPT' => 'A00',
          'DEPTNAME' => 'SPIFFY COMPUTER SERVICE DIV.'
        };
[download]