#! /usr/bin/perl
use strict;
use warnings;

# verwende Pfad zur Skriptdatei
my $file = $0;

### versuche nun, eine Datei als Verzeichnis zu oeffnen
### opendir muss dadurch fehlschlagen

# erzeugt keine Fehlermeldung!
opendir DIR, $file      || warn "1. opendir failed: $!\n";

# Fehlermeldung
opendir DIR, $file      or warn "2. opendir failed: $!\n";
# Fehlermeldung
opendir( DIR, $file )   || warn "3. opendir failed: $!\n";

__END__