open(FH,"+; # operate on file contents, store shit to print in $fh seek(FH,0,0); print FH $fh; close(FH);