use IO::Handle qw( );

do {
    STDOUT->flush();
    sleep(5);
    print "Hello...";
} while(1);