#!/usr/bin/perl
#########################################################################
# Output the content of a file to a web page
#########################################################################
use CGI 'param';
$dir   = param('dir');
$file  = param('file');
$type  = "java";
($course == 'oosad')
        ? $path = "/home/s/sultans/web/oosad/demo/oo-concept/$dir"
        : $path = "/home/s/sultans/web/java/demo/$dir";

print "Content-type: text/plain\n\n";

open(FILE, "<$path/$file.$type") || ($msg = "Cannot open $file for input!");

while(<FILE>) {
    print;
}
close(FILE);

print $msg;