1 |
#!/usr/bin/perl |
2 |
use strict; |
3 |
|
4 |
require 'mixed-replace-generation.pl'; |
5 |
|
6 |
$| = 1; |
7 |
|
8 |
my $mr = mixed_replace_generation->new; |
9 |
|
10 |
$mr->output_cgi_header; |
11 |
|
12 |
$mr->output_boundary; |
13 |
$mr->output_line ('Content-Type: text/plain; charset=us-ascii'); |
14 |
$mr->output_line (''); |
15 |
$mr->output_line ('first part'); |
16 |
|
17 |
$mr->output_last_boundary; |
18 |
$mr->output_line ('Content-Type: text/plain; charset=us-ascii'); |
19 |
$mr->output_line (''); |
20 |
|
21 |
$mr->output_line ('epilogue1'); |
22 |
|
23 |
$mr->output_boundary; |
24 |
$mr->output_line ('Content-Type: text/plain; charset=us-ascii'); |
25 |
$mr->output_line (''); |
26 |
|
27 |
$mr->output_line ('epilogue2'); |
28 |
|