#!/usr/local/bin/perl open (OUTFILE, ">outfile"); select ("OUTFILE"); write; print STDOUT ("lines to go before write: $-\n"); write; print STDOUT ("lines to go after write: $-\n"); format OUTFILE = This is a test. . format OUTFILE_TOP = This is a test. .