#!perl -w
print <DATA>;
__DATA__
This is a test.

If this were a real program beer would have fallen from the overhead
containers.