% de naeste seks makroer anvendes internt
% de kan uden problemer fjernes i hele filen
\let\START\relax
\let\STOP\relax
\let\SPECEXTSTART\relax
\let\SPECEXTSTOP\relax
\let\DCBEGIN\relax
\let\DCEND\relax
 \DCBEGIN
\documentclass[a4paper]{article}
 \DCEND

 \usepackage [latin1]{inputenc}
 \usepackage [danish]{babel}
 \usepackage {felineekssupp}

% al anvendelse af geometry i eksemplerne boer man slette,
% dette anvendes mht. at stoerrelsen skal passe til brug i bogen
\usepackage{geometry}
\geometry{textwidth=412.0pt}
% vil ikke have sidetal med, fjern selv
\pagestyle{empty}
% forfatteren snyder maaske, fjern kode fra HER -->

% <-- til HER.
 \START
\usepackage{listings}
\lstset{extendedchars=true,              basicstyle=\ttfamily,
         keywordstyle=\normalfont\bfseries, columns=flexible,
              numbers=left,             numberstyle=\tiny,
           breaklines=true,       breakatwhitespace=true,
             language=Perl}
 \STOP

\begin{document}
\begin{lstlisting}
#!/usr/bin/perl
# epstopdf kan ikke klare mere end en fil ad gangen derfor denne wrapper
# anvendelse: EpsToPdf *.eps
foreach $l (@ARGV) {
  system "epstopdf $l";
}
\end{lstlisting}
\end{document}