Select Code to Download

package Status;

...
        select(undef,undef,undef,0.1);
        print "\r" x 40;
}

tie $status, 'Status', qw( - + | + );