#!/usr/local/bin/perl

BEGIN {
        unshift(@INC,'/home/ray/lib');
}
use CGI;
$query = new CGI;
print $query->header(-type=>'text/plain');
open(F,"demo.cgi") || die "Cannot open demo.cgi: $!";
while (<F>) {
  print;
}
close(F);