#!/usr/bin/perl
use strict;
use warnings;

print grep /buil/i,qx(perl -v);
print grep /buil|osname|uname|compile/i,qx(perl -V);
printf "OS   = %s\nPerl = %s\n\n",$^O,$^V;

my @modules = qw(LWP::UserAgent LWP::Protocol::https Mozilla::CA);
for my $mod (@modules){
  if ( eval "use $mod;1" ) {
    no strict 'refs';
    printf "%-20s = %s\n",$mod,${$mod.'::VERSION'};
  } else {
    print "ERROR $@";
  }
}  
print join "\n",'','@INC = ',@INC;