# Write message
write_text($dc, 1.0, 1.0, 0.2,
   "Anonymous Monk--",
   "Am in Hell, having a terrible time.",
   "Wish *you* were here! (Ha, ha!)",
   "--roboticus"
);
# Where to send it!
write_text($dc, 4.0, 2.5, 0.25,
    "Anonymous Monk",
    "11 Two-bit lane",
    "Cyberspace, 11010-0101"
);

sub write_text {
    my $hPrt = shift;
    my $Left = shift;
    my $Top = shift;
    my $NL = shift;
    for (@_) {
       $hPrt->write($_, $Left, $Top);
       $Top += $NL;
    }
}