my $data, $i;

while ( 1 ) {
        open my $file, '<', '/dev/zero' or die "Cannot read: $!\n";
        read $file, $data, 4;
        close $file;
        $i++;
        print "$data\t$i iterations...\n" unless $i % 100;
}