#!/usr/athena/bin/perl

format STDOUT =
Foo: @<<<<<<<<<<<<   Bar: @>>>>>>>>>!!!! Baz: @<<<<<
     $foo,                $bar,               $baz
.
print("Preview\n");
$foo = "Testing";
write(STDOUT);
$bar="One";
$baz="Two";
print("Real\n");
write;