#!/usr/local/bin/perl -w
# quickshortcut.pl -- Zeigt die Verwendung des Shortcut
#               bei der Evaluierung Boolescher Ausdruecke.
use vars qw ( *MYFILE );         # Um Warnungen zu unterdruecken...

# open() ist FALSE, wenn die Operation misslungen ist.
open (MYFILE, "< somefile")
    or warn "can't open file: $!\n";

# Der Operator -d erkennt Verzeichnisse und ist dann TRUE.
-d "/usr/local" and print "/usr/local is a directory\n";
-d "/usr/local/stdio.h" and print "should not happen\n";