#!/usr/bin/perl
use CGI;
use Cwd;
my $q = new CGI;
print $q->header();
print "<pre>\n";
printf("cwd: %s\n", getcwd);
printf("/var/www/images: %s\n", -d "/var/www/images" ? 'is a directory' : 'is not a directory');
printf("/var/www/images: %s\n", -r "/var/www/images" ? 'readable' : 'not readable');
printf("</pre>");