open my $f, "+>>", $filename;
close $f;
open $f, '+<';