package Foo;
our @ISA = qw(BasisModul); # Erbschaft von der Basis
use IO::File;

# gebraucht wird ein FileHandler in foo()
sub foo{
  my $self = shift;
  my $fh = IO::File->new;
  # oder 
  $self->{FH} = IO::File->new; # Vorsicht! Denke an bestehende Attrs!

  $fh->open(...);
}