use File::Copy;

## ...

print STDOUT "<P>And here is something from another file:\n";
copy('other_file.txt', \*STDOUT) or print STDOUT "[Oops: $!]\n";
print STDOUT "We now return you to your regularly scheduled text.\n";