Perl - format

perl

format    STDOUT =
@<<<<<<<<<<@<<<<<<<<<<@<<<<<<<<<<
$filename,$name,$word
.

@<<<        left justified
@>>>        right justified
@|||            center justified
@###.##        justified by dot

format STDOUT_TOP=
age @<<
Filename        Name        Word
======        ====        ====
$%        // The number of time this format is called

select(fileHandle)
$^ = "fh_name_TOP"
$= = "pageLength"