I mean that the game script dosn't have a use Term::Cap statement in it, so Perl itself is bringing it in.

I don't think perl will do that. Perhaps you are using some other module that is using Term::Cap? Here are some things that will:

use re 'debugcolor';
#or
use Pod::Text::Termcap;
#or (shell command)
$ pod2text -t
#or
use Term::Readline; # unless ornaments are disabled
[download]

If it is coming from Term::Readline, you may be able to disable ornaments by setting an environment variable PERL_RL=" ornaments=0"

You can always replace &strict::import. Something like this untested piece of code may do:

package StrictDisallow;

no warnings;
BEGIN { require strict; *o_import = \&strict::import; *strict::import 
+= \&n_import }

our %disallow;
our @stricts = qw(refs subs vars);

sub import {
  shift;
  my $namespace = shift;
  return unless $namespace && @_;
  %disallow = (%disallow,$namespace,[@_]);
}

sub n_import {
  my $caller = caller;
  if (exists $disallow{$caller}) {
    my $class = shift;
    my %temp;
    if (@_ == 1) {
      @temp{@stricts} = ();
    } else {
      @temp{@_} = ();
    }
    delete @temp{@{$disallow{$caller}}};
    return unless %temp;
    @_ = ($class,keys %temp_hash);
  }
  &o_import;
}
1;
[download]

Then you'd use it like:

#!/usr/bin/perl -w

use strict;
use StrictDisallow Term::Cap => "refs";

...
[download]

Just be certain to use StrictDisallow before loading the modules you wish to restrict.

I hope this helps.

Wow, that is nice. It would seem that Perl would have this sort of thing built into it. Or maybe there is a reason why it dosn't?

It's because strict and warnings are meant to help in development and testing. Since you are using these other modules, they should compile properly. The easiest thing is to create a patch, apply it locally and submit it to the module's author.

On a side note, someone already suggested that I put StrictDisallow.pm on CPAN. I have no interest in it and anyone who wishes to do so is free to do so if they please. If anyone does, though, a shout out would be nice =P

antirice    
The first rule of Perl club is - use Perl
The ith rule of Perl club is - follow rule i - 1 for i > 1