my $v;
eval {
    require DBI;
    $v->{DBI}= $DBI::VERSION;
    require SQL::Statement;
    $v->{SQL}= $SQL::Statement::VERSION;
    require Text::CSV_XS;
    $v->{CSV}= $Text::CSV_XS::VERSION;
    require DBD::CSV;
    $v->{DBD}= $DBD::CSV::VERSION;
};
if ($@) {
    print "\n\nYOU ARE MISSING REQUIRED MODULES:\n\n";
    print "   DBI\n" unless $v->{DBI};
    print "   SQL::Statement\n" unless $v->{SQL};
    print "   Text_CSV\n" unless $v->{CSV};
    exit;
}
print  "USING:\n";
printf " %-20s %s\n",'OS', $^O;
printf " %-20s %s\n",'Perl', $];
printf " %-20s %s\n",'DBD::CSV', $v->{DBD};
printf " %-20s %s\n",'DBI', $v->{DBI};
printf " %-20s %s\n",'SQL::Statement', $v->{SQL};
printf " %-20s %s\n",'Text::CSV_XS', $v->{CSV};