Select Code to Download

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

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

# Generate a new boundary to use.
# The unsupported $VANILLA is for test purposes only.
...
sub gen_boundary {
    return ( "_----------=_" . ( $VANILLA ? '' : int(time) . $$ ) . $B
+Count++ );
}