Select Code to Download

#!/usr/bin/perl
package A;
...
  
  
return 1;

#!/usr/bin/perl
package B;
...
  
  
return 1;

#!/usr/bin/perl
  
...
my $b = new B();
  
$b->hello();

hello in A
hello in B
DESTROY in B