format standardformat_top =
Employees
First Name Last Name ID Extension
--------------------------------------------
.
format standardformat =
@<<<<<<<<<<<<@<<<<<<<<<<<<@<<<<<<<<@<<<<
$firstname $lastname $ID $extension
.
$firstname = "A";
$lastname = "B";
$ID = 1234;
$extension = x456;
open FILEHANDLE, ">report.frm" or die "Can't open file";
select FILEHANDLE;
$~ = standardformat;
$^ = standardformat_top;
write;
close;