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

##</code><code>##

$x = bar->new()
$x->open
x %main::
x %bar::