select TOP_STDOUT;
print;

##</code><code>##

my $format = "format TOP_STDOUT=
NAME       ID             SALARY
.
format STDOUT=
@<<<<<<<<  @<<<<<<<<<<<<  @<<<<<<<<<<<<<<
$name,     $id,           $salary
.
write;"
print TOP_STDOUT $format;