#!/usr/bin/perl

$num=20;
while ($num<30) {
   print "num is $num\n";
   $num=$num+1;
}