$num=1;
until($num>10) {
print "$num \n";
$num++; }