#!/usr/bin/perl -w
######################################################################
# uuencode.pl
######################################################################
# Perl Power! - Michael Schilli 1998
######################################################################

print pack('u', <<EndOfText);
This text consists of many, many
lines, which may or may not become very, very long, so long ...
and contains special characters such as \n, \r, and \f.
EndOfText