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