#!/usr/bin/perl
use warnings;
use strict;
my $greeting = 'Hello';
my $planet = 'world';
write();
$greeting = 'Greetings';
$planet = 'Mars';
write();
$greeting = 'Howdy';
$planet = 'Pluto';
write();
format STDOUT =
I would like to say @<<<<<<<<< @<<<<<<<!
$greeting, $planet
.