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