package bar; 
sub new { my $self = {}; bless $self, shift } 
sub openme { open BLODGETT }
sub closeme { close BLODGETT }
1;