require DBI;
#use 5.010;
use feature qw(say);
#use strict;

my @drivers = DBI->available_drivers;
say join(", ", @drivers);

foreach(@INC) {
say $_;
};

print "\n===== PRINTING ARGUMENTS =====\n";
print join(", ", @ARGV), "\n";

print "\n===== PRINTING ENVIRONMENT =====\n";
for (keys(%ENV)) {
print $_, " = ", $ENV{$_}, "\n";
}

print "\n===== NUMBER OF ITEMS IN ENVIRONMENT(%ENV) HASH =====\n";

say scalar(keys(%ENV));