#!/usr/local/bin/perl -w
# herequotes.pl -- HERE-Dokumente und Interpolation.

print <<NOT_QUOTED;       # Meine Prozess-ID: 706
Meine Prozess-ID: $$
NOT_QUOTED

print <<"DOUBLE_QUOTED";  # Meine Prozess-ID: 706
Meine Prozess-ID: $$
DOUBLE_QUOTED

print <<'SINGLE_QUOTED';  # Ich sehe $$ in Deinen Augen
Ich sehe $$ in Deinen Augen
SINGLE_QUOTED

print <<`UNIXCMDS`;
/usr/ucb/echo -n 'OS Name    :'; uname -s
/usr/ucb/echo -n 'OS Release :'; uname -r
UNIXCMDS
# Ausgabe: OS Name    :SunOS
#    OS Release :5.6