my $self = {};

open($self->{FILE}, ">> text.txt") || die "Could not open file : $!\n";
my $fh = $self->{FILE};
print $fh "some text here\n";
close($self->{FILE});