mime-multipart/mixed-replace/epilogue-2.cgi

#!/usr/bin/perl 
use strict;

require 'mixed-replace-generation.pl';

$| = 1;

my $mr = mixed_replace_generation->new;

$mr->output_cgi_header;

$mr->output_boundary;
$mr->output_line ('Content-Type: text/plain; charset=us-ascii');
$mr->output_line ('');
$mr->output_line ('first part');

$mr->output_last_boundary;
$mr->output_line ('Content-Type: text/plain; charset=us-ascii');
$mr->output_line ('');

$mr->output_line ('epilogue1');

$mr->output_boundary;
$mr->output_line ('Content-Type: text/plain; charset=us-ascii');
$mr->output_line ('');

$mr->output_line ('epilogue2');

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