#!/usr/bin/perl
use strict;
# fix this filename to match a small file in your db dir
my $filename = "/var/www/cgibin/local/clotdesnew1db/file.txt";
#
print "Content-type: text/plain\n\n";
print "Hello world\n";
print "filename is $filename\n";
# after first test completes, uncomment the next 5 lines
#my @junk;
#open(JUNK, $filename)|| die "Cannot open file $filename!";
#@junk = <JUNK>;
#close(JUNK);
#print "Line 1: $junk[0] \n";