#!/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;
复制代码