Statement Perl

#!/usr/local/bin/perl 
$count = 0; 
print ("$count\n") while ($count++ < 5);