File Perl

open(FH, "+open(FH, "+>filename");    # Opens "filename" for write, then read.