BEGIN {
   my $BCount = 0;
}

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