#!/usr/bin/perl
use strict; use warnings; 
print "content-type: text/plain\n\nTesting Use commands\n\n";

#addin('Data::Dumper'); 
#addin('strict');addin('warnings');
#addin('Config');addin('Fcntl');


#addin('CGI::Carp qw(fatalsToBrowser)');
#addin('GD'); 
#addin('LWP::UserAgent'); 
addin('JSON'); 
addin('x::x'); 


sub addin { 
  my $mod=shift; 
  my $pre=shift; 
  my %inc0=%INC; 
  if ($pre) {print '<pre>'."\n";}
  print "\n";
  print 'new to %INC from adding use '.$mod."\n"; 
  eval 'use '.$mod.';' ; 
  print 'eval use ERROR:'.$@."\n" if ($@); 

  my %incnew=(); 
  my $max=0; # this ends up as largest in %INC not largest that is new , good nuf 
  for my $k (keys %INC) { $max=length($k) if (length($k)>$max);} 
  my $fmt='  %-'.$max.'s => %s'."\n"; 
  for my $k (sort keys(%INC)) { 
    printf $fmt,$k,$INC{$k}  unless ($inc0{$k}); 
    } 
  if ($pre) {print '</pre>'."\n";}
  }