|
#!/usr/bin/perl
use warnings;
use strict;
my $name = 'Tom';
my $streetAddress = '12 Avenue';
my $town = 'Gate';
my $state = 'CA';
my $zip = '11111-1111';
write();
$name = 'Jack';
$streetAddress = '12 Street';
$town = 'newTon';
$state = 'AC';
$zip = '00000-0000';
write();
$name = 'Mary';
$streetAddress = 'One City';
$town = 'Small';
$state = 'AQ';
$zip = '01234-5678';
write();
format STDOUT =
@||||||||||||||||||||||||||
$name
@||||||||||||||||||||||||||
$streetAddress
@<<<<<<<<<<<, @< @>>>>>>>>>
$town, $state, $zip
.
|