#! /usr/bin/perl -w
  use strict;

  print "File exists.\n" if -e ' ';
  print "File exists.\n" if -e ' . . ';
  print "File exists.\n" if -e ' .. ';
  print "File exists.\n" if -e '           ';
  print "File exists.\n" if -e '.          ';