#!/usr/bin/perl
use strict;
use utf8;

print "[>                   ]   5%";
sleep 1;

print "\r";
print "[>>                  ]  10%";
sleep 1;

print "\r";
print "[>>>                 ]  15%";
sleep 1;

print "\r";
print "[>>>>                ]  20%";
sleep 1;

print "\r";
print "[>>>>>               ]  25%";
sleep 1;

print "\r";
print "[>>>>>>              ]  30%";
sleep 1;

print "\r";
print "[>>>>>>>             ]  35%";
sleep 1;

print "\r";
print "[>>>>>>>>            ]  40%";
sleep 1;

print "\r";
print "[>>>>>>>>>           ]  45%";
sleep 1;

print "\r";
print "[>>>>>>>>>>          ]  50%";
sleep 1;

print "\r";
print "[>>>>>>>>>>>         ]  55%";
sleep 1;

print "\r";
print "[>>>>>>>>>>>>        ]  60%";
sleep 1;

print "\r";
print "[>>>>>>>>>>>>>       ]  65%";
sleep 1;

print "\r";
print "[>>>>>>>>>>>>>>      ]  70%";
sleep 1;

print "\r";
print "[>>>>>>>>>>>>>>>     ]  75%";
sleep 1;

print "\r";
print "[>>>>>>>>>>>>>>>>    ]  80%";
sleep 1;

print "\r";
print "[>>>>>>>>>>>>>>>>>   ]  85%";
sleep 1;

print "\r";
print "[>>>>>>>>>>>>>>>>>>  ]  90%";
sleep 1;

print "\r";
print "[>>>>>>>>>>>>>>>>>>> ]  95%";
sleep 1;

print "\r";
print "[>>>>>>>>>>>>>>>>>>>>] 100%\n";
print "Done.\n";