Help for this page

Select Code to Download


  1. or download this
    package bar; 
sub new { my $self = {}; bless $self, shift } 
sub openme { open BLODGETT }
sub closeme { close BLODGETT }
1;
  2. or download this
    $x = bar->new()
$x->open
x %main::
x %bar::