Package Foo ;
use base qw(SomeGeneralSubs) ;

sub close {
 my $obj = shift ; # its all OO
 # do something specific
  ....
 # now call close from 'SomeGeneralSubs'
  ....?
}

package SomeGeneralSubs ;

sub close {
  ..
}