sleep in infinite loop

my_nihilist has asked for the wisdom of the Perl Monks concerning the following question:

why doesn't this work:


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

while (1) {
        sleep 5;
        print "interval";
}
[download]