This is an HTML example

my $output = "Content-type: text/html\n\n"; my $file = 'index.html'; my $vars = { title => "Hello World\n" }; my $template = Template->new({ INCLUDE_PATH => 'C:/Apache2/htdocs/gelna/templates' } ); $output .= $template->process($file, $vars) || die "Template process failed: ", $template->error(), "\n"; print $output; ##

##

C:\Apache2\htdocs\gelna>perl index.cgi

    
    This is an HTML example
    

    


    
    
    © Copyright 2000 Me, Myself, I
    
    
    
Content-type: text/html

1