#!/usr/bin/perl

use strict;

use DBI;
my $dbh = DBI->connect("dbi:DB2:DATABASE=db","user","pwd") || die "error in connecting";