sub flux {
  my $class = ref shift;
  my $fh = do {
    no strict 'refs';
    \*{"$class\::DATA"};
  };
  return "A-flux: " . scalar <$fh>;
}

##</code><code>##

#!/usr/bin/perl
use warnings;
use strict;

use a344569;
use b344569;

my $a = a344569->new();
my $b = b344569->new();

print "A:\n";
print "  ", $a->foo();
print "  ", $a->flux();

print "B:\n";
print "  ", $b->foo();
print "  ", $b->bar();
print "  ", $b->flux();

print "Ok\n";

##</code><code>##

package a344569;

use strict;

sub new {
  return bless {}, shift;
}

sub foo {
  return "A-foo: " . scalar <DATA>;
}

sub flux {
  my $class = ref shift;
  my $fh = do {
    no strict 'refs';
    \*{"$class\::DATA"};
  };
  return "A-flux: " . scalar <$fh>;
}

1;

__DATA__
This is package A
This is package A
This is package A
This is package A

##</code><code>##

package b344569;

@ISA = ('a344569');

use strict;

sub bar {
  return "B-bar: " . scalar <DATA>;
}

1;

__DATA__
This is package B
This is package B
This is package B
This is package B

##</code><code>##

[johnsca@cory tmp]$ ./344569.pl 
A:
  A-foo: This is package A
  A-flux: This is package A
B:
  A-foo: This is package A
  B-bar: This is package B
  A-flux: This is package B
Ok