Format in Perl

$subject = "Test form";
$info = "Some miscellaneous information";
$info .= " about me.";
$phone = "555-5555";

write;

format STDOUT_TOP =
# This area can contain headers which can look like the
# info between the periods below.
Sample Format Style


.
format STDOUT =
Subject: @<<<<<<<<<
$subject $info
Telephone: @<<<<<<<<
$phone $info
~ ^<<<<<<<
$info
.


__END__
Sample Format Style


Subject: Test form
Telephone: 555-5555
  Some