Another solution - maybe not a good one - is this

#!/usr/bin/perl -w

use strict;
use warnings;

use Spiderman qw(shootWeb);

print STDERR shootWeb() . "\n";

package Spiderman;

use base qw(Exporter);

our @EXPORT = qw(shootWeb webStrength);

use DrOctopus ();

sub shootWeb {
  return DrOctopus::deflectWeb(); # from DrOctopus
}

sub webStrength {
  return 1;
}

package DrOctopus;

use base qw(Exporter);

our @EXPORT = qw(deflectWeb);

use Spiderman ();

sub deflectWeb {
  return Spiderman::webStrength(); # from Spiderman
}

1;
[download]