open($filehandle, '>', $filename) or die "Cannot open file for writing: $!\n";
...
open($filehandle, '<', $filename) or die "Cannot open file for reading: $!\n";
close($filehandle);