$num=20; 
while($num<30) 
{ 
   print "num is $num\n";
   <b><u>$num+=$num;\n</b></u>
}

#I think you ment:
   $num += 1;

#Though these should work also:
   $num++;
   ++$num;
[download]

PerlMonks parthenogenetically spawned by Tim Vroom.
PerlMonks was recently assimilated by The Perl Foundation.
Beefy Boxes and Bandwidth Generously Provided by pair Networks
Built with the Perl programming language.