my $dbh = DBI->connect('DBI:DB2:dbname', 'username', 'password.')
    or die "Couldn't open database: $DBI::errstr; stopped";

#Prepare the SQL query for execution
my $sth = $dbh->prepare(<<End_SQL) or die "Couldn't prepare statement: $DBI::errstr; stopped";
SELECT values FROM table;
End_SQL

# Execute the query
$sth->execute() or die "Couldn't execute statement: $DBI::errstr; stopped";

# Fetch each row and print it
while ( my (@result) = $sth->fetchrow_array() ) {
        my $result_to_print = join(",",@result);
        print $result_to_print . "\n";
        }

# Disconnect from the database
$dbh->disconnect();