Select Code to Download

$Start = substr(++($Start="z$Start"),1);

#!/usr/bin/perl -w
#-*-perl-*-
...
  # below is where the magic happens
  $Start = substr(++($Start="z$Start"),1);
}