use IO::Handle qw( );
STDOUT->autoflush(1);

do {
    sleep(5);
    print "Hello...";
} while(1);