sub foo {
     my $self = shift;
     my $filename = shift;
     open FH, $filename or die "Can not open file: $!\n";
     $self->{'fh'} = \*FH;
}