#!/usr/bin/perl

# This script is called format_test

format =
@<<<<@>>>
$field1,$field2
.

$field1 = "Hello";
$field2 = "    ";
write;