package Something;
.... #package stuff

sub print {
  my $self = shift;
  my $FH = $self->{FILE}; #deref the FILE handle
  return print $FH join('',@_);
}

#and likewise with others.