three18ti

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;