This is not specific to CGI.pm

sub include {
    my $file = shift;
    open my $fh, '<', $ENV{'DOCUMENT_ROOT'}.$file
        or return;
    while (<$fh>) { print }
    close $fh or return;
    return 1;
}
[download]

After Compline,
Zaxo

It should be noted that as DOCUMENT_ROOT is set by the webserver and not subject to user input, it's safe to trust.

Makeshifts last the longest.

'safe to trust' ne 'untainted' :)

Greetz
Beatnik
... I'm belgian but I don't play one on TV.

Ohhh, so you basically just open up the file, read it, and then print it out? That sounds easy enough.

Update Corrected @ARGV to *ARGV to correct the error noted by Aristotle++ below.

use strict;
use warnings;
use CGI;
....
print do{ local (*ARGV,$/), @ARGV='files/my.html'; <> }; # Hic!
....
[download]

Just be careful that the ARGV filehandle is not currently open on another file, otherwise it won't quite do what you expected.

Update: localizing the entire *ARGV glob works, but doesn't work in less than recent Perls - it breaks on less than 5.8, IIRC 5.6 - see (tye)Re: Cheap idioms.

Makeshifts last the longest.

If it's good enough for tye, it's good enough for me:)

---

Examine what is said, not who speaks.
"Efficiency is intelligent laziness." -David Dunham
"When I'm working on a problem, I never think about beauty. I think only how to solve the problem. But when I have finished, if the solution is not beautiful, I know it is wrong." -Richard Buckminster Fuller