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