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

# Autoflush Output
$| = 1;

for my $num (1..100) {
    print 'Testing long line print', "\r";
    print 'Printing over', "\r";
    print $num, "\r";
    sleep 1;
}