#!/usr/bin/perl -w
use strict;
my $name = 'name';
my $home = "town\r\n";
{
local $\= "\r\n";
binmode STDOUT;
format STDOUT =
@<<<<<<<<<<<<<<<<<< @<<<<<<<<<<<<<<<<<  \r\n
$name,              $home
.
write STDOUT;
}