#!/usr/bin/perl


format INVOICE = 

+-----------------------------------------------------------------------------+
   Invoice To                                     Invoice From                  
   @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<                 The Get Rich Quick Co.            
   $name

   Address
   @*                                                                           
   $address
   
   Description:                                        Cost:
   @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @###.##
   $description                                        £$cost
+-----------------------------------------------------------------------------+
.

open(INVOICE,">print-invoice");
$name = "Another Sucker";
$address = "Address 1\nAddress2\nXX11 9DJ";
$description = "another mug to help us swell our coffers";
$cost = 999.99;
write (INVOICE);