$smtp->datasend("--$boundary\n");

##</code><code>##

$smtp->datasend("--$boundary--\n");

##</code><code>##

# Generate a new boundary to use.
# The unsupported $VANILLA is for test purposes only.

sub gen_boundary {
    return ( "_----------=_" . ( $VANILLA ? '' : int(time) . $$ ) . $BCount++ );
}