#!/usr/bin/perl -w

## make coding strict
  use strict;

## variable to hold message string
  my( $message );

## set $message
  $message = "My wife and I had a baby boy.  He is great and we love him.";

## write $message
  write STDOUT;

## STDOUT format
format STDOUT =
  ^<<<<<<<<<<<<<<<< ~~
  $message

.

__END__