package Apache::SSI;

sub include
{
    open(INFILE, $_[0]);
    while (<INFILE>)
    {
	print $_;
    }
    close(INFILE);
}

1;
