#!perl
use strict;
use Cwd;
open my $log,'>','perlmonks.txt' or die "$!";
select $log;

print getcwd();
print "
$0 $^V
\@INC
";
print join "\n", @INC;
print "\nPATH\n";
print join "\n",grep (/perl/i, split ';',$ENV{PATH});
print "\n\n";
my @mod = qw(
  Spreadsheet::Read
  Spreadsheet::WriteExcel
  Spreadsheet::ParseXLSX );
for (@mod){
  eval ("use $_");
  if ($@){
    print "ERROR - $@\n";
  } else {
    print "OK - $_\n";
  }
}
select STDOUT;
print "Done - see perlmonks.txt";