mime-multipart/mixed-replace/prologue-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_string ('This is a multipart message:-)');

sleep 10;

$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;
1	wakaba	1.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_string ('This is a multipart message:-)');
13
14			sleep 10;
15
16			$mr->output_boundary;
17			$mr->output_line ('Content-Type: text/plain; charset=us-ascii');
18			$mr->output_line ('');
19			$mr->output_line ('first part');
20
21			$mr->output_last_boundary;