Select Code to Download

use Test::Without::Modules qw( HTML::Template );
use Test::Without::Modules qr/^POE::/;

BEGIN { @SAVED_INC = @INC; };
sub import {
...
    # Return a filehandle to it
  };
};

BEGIN { @SAVED_INC = @INC; };
sub import {
...
    # return undef if it's a blocked module
  };
};

sub import {
  $INC{$module} = 1;
...
    die 'ugh';
  };
};

  eval { require Optional::Module };
  if ($@) {
    # module is not available
  };

sub import {
  unshift @INC, sub {
    # return dummy module filehandle if it's a blocked module
  };
};

use vars qw( %forbidden );
sub import {
...
    };
  };
};

package Test::Without::Module;
use strict;
...
L<Acme::Intraweb>, L<PAR>, L<perlfunc>

=cut

perl -MHTTP::Daemon -MHTTP::Response -MLWP::Simple -e ' ;    # The  
$d = new HTTP::Daemon and fork and getprint $d->url and exit;#spider
($c = $d->accept())->get_request(); $c->send_response( new   #in the
HTTP::Response(200,$_,$_,qq(Just another Perl hacker\n))); ' #  web