package SomethingOrAnother;

BEGIN {
  my @incoming;
  my $otherdata;
  my $table;
}

INIT {
  local $/;
  $table = <$otherdata>;
}

sub import {
  my $self = shift;
  @incoming = @_;
  my ($caller) = caller;
  $otherdata = *{"$caller\::DATA"};
  *{"$caller\::table"} = \${"$self\::table"};
}

1;