Select Code to Download

sub flux {
  my $class = ref shift;
  my $fh = do {
...
  };
  return "A-flux: " . scalar <$fh>;
}

#!/usr/bin/perl
use warnings;
use strict;
...
print "  ", $b->flux();

print "Ok\n";

package a344569;

use strict;
...
This is package A
This is package A
This is package A

package b344569;

@ISA = ('a344569');
...
This is package B
This is package B
This is package B

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