IO::File and shared

[David Shapiro]

Can anybody help me to understand how I can assign an IO::File handle to
this hash with share previously in the sub new for $self as:

sub new {
   my $self = &share({});
   bless $self,ref($class)||$class;
   return $self;
}
.
.
.
sub init() {
   my $self = shift;
   $self->{fh} = IO::File->new($self->{file},$self->{mode},$self->  
{permissions}) or die "Failed to open $self->{file}: $!\n";
}

David