1 #!/usr/bin/perl -w
2 # File: print_until.pl
3 # Author: Tom Large - tlarge@thelug.org
4 # Location: http://www.thelug.org/docs/
5 # Description: Demonstrates how to print bulk text without
6 # use of cumbersome print statements. Notice how special
7 # characters do not need to be escaped.
8
9 $example = "Some random text\.";
10
11 print <<END_OF_TEXT;
12
13 ***************************************************************
14
15 This script will do something important:
16
17 * Article 1
18 * Article 2
19 * Article 3
20 * Article 4
21 * Article 5
22
23 Special Characters:
24 <>"{}[]'!@#$%^&*()
25
26 Variables work to:
27 $example
28
29 Upon completion, something important will be done.
30
31 ***************************************************************
32
33
34 END_OF_TEXT
syntax highlighted by Code2HTML, v. 0.9.1