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