Check connection to DBD2

check_dbd2.pl

use 5.010;
use warnings;
use strict;
use DBI;
use DBD::DB2;

say "Operating System = "   . $^O;
say "Perl Binary = "        . $^X;
say "Perl Version = "       . $];
say "DBI Version = "        . $DBI::VERSION;
say "DBD::DB2 Version = "   . $DBD::DB2::VERSION;
say "env = "                . $ENV{DB2INSTANCE};

say "Available Drivers:";
say join ", ", DBI->available_drivers;

say "Attempting to list to databases";

say join ", ", DBI->data_sources('DB2');

say "Successfully listed to databases, exiting";