[问题求助] 用perl重写“正在加载”进度条的疑问

sxw

感觉比批处理简洁一点，疑问是■为什么会出现在两条线段之间，而不擦除下面的那条？

#!/usr/bin/perl
use warnings;
use strict;
 
$|=1;
print "正在加载...\n";
use Time::HiRes qw ( sleep );
print "┌──────────────────────────────────────┐\n";
print "└──────────────────────────────────────┘\n";
print "\t","" x 31;
print " ";
print "■" and sleep 0.1 for (1..35);
print "    100\%";
sleep 2;COPY