perl do while loop

my $count = 0;
do {
    print "Count: $count\n";
    $count++;
} while ($count < 5);