while(<STDIN>) {               # Eine Zeile von STDIN wird in $_
                               # eingelesen.
  print;                       # Ohne Parameter zeigt print den Inhalt der
                               # Variable $_ an.
}

open(A, "/dev/tty") || die "Can' t connect to /dev/tty!;
                               # Der Dateihandler A wird erstellt. Kann
			       # /dev/tty nicht geöffnet werden, beendet
			       # sich das Programm.
while($a = chomp(<A>)) {       # Der Variable $a (nicht <A>!) wird,
                               # mit Anwendung von chomp (\n am Zeilenende
			       # entfernen), die nächste Zeile von
			       # <A> zugewiesen.
  print "$a\n"                 # Ausgabe.
}

open(A, "|grep -v Unerwünscht|sort -nf") ||
                              die "Can' t connect!"
print A "Z\n"
print A "A\n"
print A "5\n"
print A "0.5\n"
print A "Unerwünscht\n"
print A "52\n"
close(A);

# Ausgabe:
# A
# Z
# .5
# 5
# 52

open(A, "<abc.def") || die;
$a = <A>;
@b = split(',', $a);           # In das Array @b werden die mit Komma
                               # getrennten Daten eingelesen.
print "\@b\n"