#!/usr/local/bin/perl

# Diese ANSI-Escapesequenz leitet die Ausgabe auf einem
# angeschlossenen Terminal (z. B. Apple) angeblich auf den Drucker um.

print "\e[5i";
print while <>;
print "\n\f\e[4i";