Help for this page

Select Code to Download

Select or download this

my $num = "000";
{
...
  print "$num\n";
  redo while length $num < 20;
}