How to write a Perl Program using "Until" and "Do Until" with the following Perl script?

[Mousie]

my $x;
for ($x=1;$x<21;$x++){
print "$x\n" if(int($x/2)==$x/2);
}