#!/usr/bin/perl

use CGI qw/-nosticky :standard *table *td *Tr/;
use strict;
use warnings;

print(header(),
      start_html(),
      '<!--#include virtual="t1.pl"-->',
      h1("Main file"));

print ('<!--#include virtual="t2.html"-->',
       end_html);